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MUNDOATARI 


AMIGOS LECTORES; 

Ustedes pueden completar su 
colección de MUNDOATARI 
adquiriendo los números 
atrasados directamente en 
Av. 11 de septiembre 2305, 
local 18, o bien, 
utilizando la Orden de Pedido, 
adjunta a esta revísta. 

(Números atrasados 
valen $ 500 cada uno) 



Artieaios, 

Programas. 

Idueaclon y mncho más 
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Editorial 


A migos atarlanos, que emocionante es encontrarnos en un nuevo 
año y ver concretados los deseos de editar una revista para ustedes. 
En este momento rememoramos fugazmente los momentos iniciales, 
que fueron determinantes para lograr que MUNDOATARI sea una 
realidad en el mercado latinoamericano. 

Este número permite anotar un nuevo liderazgo de MUNDOATARI 
al reportar los eventos en una feria internacional de computación a 
nuestros incondicionales amigos. En estas páginas deseamos compartir las 
vivencias de días inolvidables en COMDEX '87, en Las Vegas, USA. 

Los tiempos de vacaciones deben servir a ustedes, lectores, como 
tiempo ideal para avanzar en el manejo de su ATARI. Este avance debe 
direccionarse según las necesidades personales de cada uno. Un grupo de 
ustedes disfrutará digitando, modificando y programando en el lenguaje 
de su preferencia. Para otro grupo será importante la utilización de su 
computador como herramienta poderosa en la optimización de sus 
actividades. Pensando en ellos iniciamos en este número una nueva columna 
de aplicaciones con programas de contabilidad, manejo de stock y otros 
que probablemente coincidirán con sus intereses. 

Pero no olvidemos que luego de este reparador descanso vuelve 
nuevamente la actividad y nuestro ATARI se adaptará al enfoque 
educacional. MUNDOATARI está en la planificación de una solución 
integral para todos, quienes tienen un grado de ingerencia en este quehacer: 
alumnos, profesores, padres y colegios. 

Por ahora nuestro deseo es de paz y prosperidad para el nuevo año. 
[Felicidades! 

SU EDITOR 
Iván Gjurovic M. 


MUN0®A1ARr 

ENERO 1988 Precio $ 300 

Revista con información exclusiva 
para microcomputadores ATARI 

Resol. Exenta No. 360/6-6-1987 


Editor: Iván Gjurovic 
Director: Adolfo Torrejón S. 
Representante legal: Lucía Segura G. 
Producción: SES Sistema 
Casilla: 458-11, Ñuñoa, Santiago 
Teléfonos: 2515949 


Impresa por Editorial Antartica, 
quien sólo actúa como Impresora. 


Esta revista no mantiene relación 
de dependencia de ningún tipo 
con respecto a los fabricantes 
de microcomputadores ATARI 
ni sus representantes. 

El contenido de la publicidad es 
responsabilidad de los avisadores. 

Prohibida la reproducción total 
o parcial de esta revista sin la 
autorización escrita de los editores. 
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TESTIMONIO 


Colegios con ATARI 



Colegio visitado: 

Nuestra Señora del Carmen 
Religiosas Carmelitas 
Avda. Irarrázaval 5310, Ñuñoa 
Santiago de Chile 


Respondiendo ai llamado de 
su directora, Hermana Bernarda 
Riveros, MUNDOATARI visitó 
este prestigioso colegio que 
cuenta con dos salas de compu¬ 
tación, montadas como se apre¬ 
cia en las fotografías. 

PLAN DE ACTIVIDADES: 

1. Reforzamiento de asignatu¬ 
ras: todos los niveles desde 

2o. básico a 4o. Medio, en las di¬ 
ferentes asignaturas, con grupos 
de alumnos. En la foto se mues¬ 
tra en acción el Superexamina- 
dor. 

2. Plan electivo para los alumnos 
de lo. y 2o. año Medio den¬ 
tro del plan curricular, usando el 
programa BASIC en grupos de 
20 a 30 alumnos. 

3. Talleres extraprogramáticos: 
con 65 alumnos practicando 

el lenguaje LOGO. Desde 5o. a 
8o. básico, durante las tardes. 
Hay 2 niveles de iniciación y 
avanzado. 

Destacamos en este colegio la 
amplia colaboración de lasalum- 
nas para crear programas a utili¬ 
zar por los alumnos de cursos 
inferiores. 

MUNDOATARI pudo com¬ 
probar el alto nivel de aprendi¬ 
zaje en el lenguaje LOGO. Des¬ 
tacan alumnas como Viviana 
Martínez y Viviana Calderón. 

MUNDOATARI felicita a la 
dirección y al grupo del colegio 
por la excelente muestra y por 
su complementación para el 
logro de los objetivos. • 
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EQUIPOS 



Novedades ATARI 


COMPUTADOR 65 XE 

Ya está disponible en el mer- 
cadb nacional el nuevo compu¬ 
tador ATARI 65XE de 8 bits y 
64 Kb de memoria RAM. 

El ATARI 65 XE es total¬ 
mente compatible con las líneas 
XL y XE, tanto en hardware co¬ 
mo en software, lo que le permi¬ 
te utilizar la toalidad de los peri¬ 
féricos y accesorios existentes, 
como también el software dispo¬ 
nible, ya sea como cartridge, ca¬ 
setes o diskettes. 

Al igual que sus predecesores, 
el ATARI 65 XE está basado en 
el microprocesador 6502C, ope¬ 
rando a una velocidad de 1.79 
Mhz, También dispone de los 
procesadores dedicados: GTIA, 
POKEY y ANTIC, destinados a 
suministrar las capacidades de 
gráficos, colores y sonidos, que 
han hecho famosos a los compu¬ 
tadores ATARI. 

El ATARI 65 XE cuenta con 
moderno diseño y un teclado 
con características ergonométri- 
cas, con 62 teclas y caracteres 
gráficos impresos sobre las te¬ 
clas, mas 5 teclas de funciones 
especiales. Trae incorporado en 
24 Kb de ROM, el Sistema Ope¬ 
rativo y el lenguaje BASIC. Dis¬ 
pone de 4 sintetizadores elec¬ 
trónicos de sonido, con el obje¬ 
to de generar tonos musicales o 
efectos especiales de sonido, 
con volumen controlable por 
software. Cuenta con la carac¬ 
terística especia! de salida de 


audio hacia el televisor o moni¬ 
tor. 

En capacidades gráficas y de 
colores dispone de 16 modos 
gráficos distintos, de los cuales 
5 son de texto y 11 para gráfi¬ 
cos con 256 colores, desde 
baja -resolución hasta una reso¬ 
lución máxima de 320 por 192 
puntos y es capaz de desplegar 
en pantalla hasta 128 colores 
al mismo tiempo. 

Por la parte posterior cuen¬ 
ta con LM 1 conector para el bus 
de datos serial, que permite la 
conexión con los diferentes 
periféricos, el compartimiento 
para insertar software en car- 
tridges y la salida de video para 
monitor y RF para televisor. 

En el costado derecho posee. 
2 terminales para conectar con¬ 
troles joystick, lápiz de luz, ta¬ 
blero gráfico u otro tipo de ac¬ 
cesorio. 

El nuevo computador ATAR! 
65 XE se transformará, sin lugar 
a dudas, en el preferido de todos 
los entusiastas de la computa¬ 
ción ATARI. 


UNIDAD DE DISCOS 
ATARI XFF-551 

Una nueva unidad de discos 
ATARI XFF-551 ha sido incor¬ 
porada recientemente al merca¬ 
do, lo que le permite mayor ex¬ 
pansión y flexibilidad a su siste¬ 
ma computacional ATARI. 

La XFF-551 puede ser utili¬ 
zada con la totalidad de los com¬ 


putadores ATARI XL y XE y es 
totalmente compatible con los 
programas y archivos en diskette 
desarrollados para la anterior 
unidad de discos ATARI 1050. 
con Sistema Operativo DOS 2.5. 

La unidad de disco XFF-551 
es un eficiente medio de alma¬ 
cenamiento de información en 
un medio magnético, como son 
los diskettes de 5 1/4 pulgadas. 

Este periférico le permite agi¬ 
lizar los procesos de carga de 
programas, como también la 
lectura y grabación de archivos 
de datos y la administración de 
toda la información contenida 
dentro del diskette, bajo el con¬ 
trol del Sistema Operativo del 
Disco. 

Junto a la unidad de disco 
XFF-551 se suministra el disket¬ 
te conteniendo el Sistema Opera¬ 
tivo DOS 2.5, su respectivo ma¬ 
nual de uso en español y un dis¬ 
kette con varios programas de¬ 
mostrativos y de aplicación, a 
fin de ayudar al conocimiento 
y operación de este periférico. 

La adición de la nueva unidad 
de disco a su configuración le 
abrirá las puertas de un mundo 
nuevo de posibilidades, que no 
eran posibles con la grabadora de 
casetes, especialmente en la uti¬ 
lización de programas profesio¬ 
nales, como planillas electróni¬ 
cas de cálculo, bases de datos, 
procesadores de textos y un sin¬ 
número de otras aplicaciones, 
que transformarán su compu¬ 
tador ATARI en una poderosa 
herramienta profesional. • 
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PROGRAMAS 


□onkey Kong Jr. 


Para quienes ya conocen el 
juego Donkey Kong podrán con¬ 
tinuar divirtiéndose con las aven¬ 
turas y peripecias del hijo del go¬ 
rila. 

Mario Bross atrapó a Donkey 
Kong y lo mantiene prisionero. 
El pequeño gorila quiere salvarlo 
a como de lugar. Para ello debe 
recorrer una jungla poblada de 
peligros para liberarlo. 

Deberá subir trepándose' por 
lianas, esquivar peligrosos coco¬ 
drilos, saltar a plataformas rígi¬ 
das y móviles y pasar por trenes 
de láminas que rotan. 

Papá gorila se encuentra ence¬ 
rrado en una jaula, cuya llave 
maestra se encuentra colgada por 
ahi. Si tú logras alcanzarla, el 
prisionero será liberado y pasarás 
al siguiente nivel. 

El juego comienza con 3 vidas 
y al pasar de 10.000 puntos lo¬ 
grarás una vida adicional. 

Hay 5 niveles de dificultad, 
numerados de 0 a 4 que puedes 
elegir al comienzo con la tecla 
OPTION. Con la tecla SELECT 
defines si juegas solo o con 
algún amiguito. Necesitas jugar 
con joystick. 

Algunas indicaciones para el 
mejor manejo del juego: Donkey 
Kong jr. subirá más rápido si se 
agarra de dos lianas o cadenas 
al mismo tiempo, pero bajará 
más rápido colgado de una sola. 
Si se encuentra parado, al apre¬ 
tar e! botón lo harás saltar; si 
por el contrario está corriendo, 
al apretar el botón lo harás 
saltar en la misma dirección. 
Para lograr saltos más largos 
mantén apretado el botón y di- 
reccionada la palanca por más 
tiempo. 

Y eso es todo por ahora. Nos 
vemos el próximo mes. 




Gráficos 

:6.2 



Sonido 

: 5.8 


CALIFICACION 

Animación 

: 6.0 


(nota de 1 a 7) 

Dificultad 

: 6.6 



Originalidad 

: 6.1 



Promedio 

: 6.1 



Illlllllllllllllliíltlllllllllllllilllllllllllllllllllllllllllli 
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BUSQUEDA DE STRiNG 

Este mes la columna USR presenta una rutina 
muy útil para todos los usuarios en sus programas 
de aplicación. 

El siguiente listado contiene la rutina en refe- 
rerencia. En el casete o diskette de la revista MUN- 
DOATARI No. 8 encontrará usted el programa ya 
digitado. 


if REN M..T25 

11 REH RUTINA para buscar un string 

12 DIN TSB$(14t) 

11 REN 

18 TSB$Cl«88)=*tfrhaiia MBhaahaihMhha 

EEQWíEEni GEEO 

T5B$l81^9)='flS^QDMIhMrCM^ 

roniHananáBBMaaa 





























ASSEMBLBR: continuación 


TSB$ : String que contiene el código de 
máquina. 

ADR(TSB$): Localización de memoria inicial 
para el código de máquina. 

CNT ; Número de registros (elementos 

de búsqueda). 

ADR(A$}; Localización inicial dei string de 
búsqueda (string mayor). 

ADR{OFER$) : Localización inicial de! string 
a buscar. 

RL : Longitud del elemento. 

L ; Largo del elemento a buscar. 

El siguiente listado aplica la rutina de búsque¬ 
da para un ejemplo. 


16 DIH T5B$(139) 

15 ilH A$C4425),0FER$(2B) 


18 TSB$ ci, gi) 

ecB«{!ECia sm 

2O^lgP0CD* fi9«*' 

19 T5B$C81«139)='fiSD^DhlWM3rQ«(3/|9 

isaaa/B!3siisra]4 


JXHDMP:''P 


Z$ AScn=“ ••:A$t 4425 »='' ”!ASa)=AS 
5t A$flBl,lÍB)=**MINBOATARI" 

6B PRIIIT "INGRESE TENTO BUSQUEDA" 

7Q INPUT 0FER$ 

BQ L=LEN(OFER$) 

110 T=USR(ADR(TSBS),44Q,ADR(A$),ADR(OF 
ER$}.1Q,L) 

111 t T 

120 ? " POSICION CORRESPONDE A ";440’T 
♦1 


Digite el listado anterior y ejecute. El valor al¬ 
macenado en la variable T del ejemplo indica la po¬ 
sición del número del elemento en sentido inverso, 
Para determinar en el otro sentido la diferen¬ 
cia con respecto al total determina la posición. 


La descripción de estas líneas corresponde a: 

10 Dimensiona string para rutina en lenguaje de 
máquina. 

15 Dimensiona string para variable A$ (contiene 
datos totales) y OFER$ (contiene datos a 
buscar). 

18-19 Datos de ML rutina de búsqueda. 

30 Inicializa string que contiene datos. 

50 Ingresa el dato "MUNDOATARl" en el string 
total (localizadoen posición 11). 

60-80 Ingresa texto a buscar. 

100 Ejecuta la función USR con los valores preci¬ 
sos para este ejemplo de búsqueda: 


Ubicación de rutina ML 

Número de elementos 

Ubicación del string A$, que contiene la 

totalidad de los datos 

Ubicación del texto a buscar, ingresado en 

li'neas 60-80 

Largo determinado para cada elemento 
Largo del string ingresado en variable 
OFER$ a buscar 



USR(ADR(TSB$),440. ADRlAS). ADR(OFER$). 10, L) 


Para su práctica, amigo interesado en el cono¬ 
cimiento de la máquina, puede modificar la posi¬ 
ción del string de búsqueda en la línea 50. 

Usted dispone ahora de una herramienta pode¬ 
rosa de búsqueda que le permitirá optimizar sus 
programas de aplicación comercial. 

Recuerde que estos programas se encuentran 
ya digitados, para su comodidad, en diskettes o 
casetes de apoyo. Solicítelos por el Catálogo ATA- 
Rl. 

Hasta el próximo mes. ♦ 
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APLICACIONES 


I 

1 


I 

1 


I 


i 

i 

) 


I 

i 



MUNDOATARI inicia en este número un nue¬ 
vo tipo de artículos de aplicación práctica, siendo 
sus objetivos atender al máximo de usuarios de los 
microcomputadores ATARI: 

1. Usuarios iniciales, que ven en el ATAR! un 
elemento de ayuda en el desarrollo de sus ac¬ 
tividades. Para ellos la revista proporciona in¬ 
formación acerca de como usarlo y para que 
usarlo. 

El programa listado está disponible (ya digi¬ 
tado) en casete o diskette. 

2. Para usuarios avanzados en la programación 
BASIC. Los listados y explicaciones adjuntas 
servirán de modelo para la exploración y 
aprendizaje de otros software de aplicación 
profesional. 

3. Optimización: Los programas, como cualquier 
producto elaborado por el hombre, están su¬ 
jetos a modificaciones y mejoras. Ustedes 
pueden participar en las nuevas versiones más 
completas de estos mismos programas. 


CUENTA CORRIENTE BANCARIA 

Este programa de utilidad general para los 
usuarios con cuenta corriente, y que posean un 
ATARI 800 XL, 130 ó 65 XE. permite las siguien¬ 
tes opciones: 

1. Controlar los cheques emitidos. 

2. Controlar los depósitos. 

3. Mantener saldo inmediato de su cuenta al día. 

4. Proyectar su cuenta hacia una fecha determi¬ 
nada (cheques a fecha). 

5. Emisión de cariólas, 

6. Búsqueda por alguno de los Ítems. 


Aplicaciones 



iPIGITE nuwero QPCIQH 


INICIALIZAR: 

Esta opción permite ingresar los datos del gi¬ 
rador de la cuenta corriente y definir el talonario 
a usar. 

Una de las ventajas es el número de cheque, 
que controla el computador con sus archivos. 

MOVIMIENTOS: 

Presenta las siguientes opciones: 



iDIGIT£ nuHero QPCIOH 


GIROS: 

Usted ingresa fechas y datos completos del 
cheque. 


I 

f El programa presenta el siguiente menú prin- 

: cipal: 


El siguiente listado'presenta la versión en 
diskette para esta opción, el que por razones 
de espacio continuará el próximo número. 
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APLICACIONES: continuación 



5 POKE 82,1 

II IIH TRIL$ C288).0FER$ CI2)«»UN$(12)* T 
ITUL0$(25),R$(1),rCC$(1),THP$(lli), IC5 
$(i2),»IA$(2),T5B$(141).TOTAL$(9611) 

11 IIH TftL0N$(26),CHEQüE$(12),FECRE$(l 
)«CHEC1R0$ (12). AUH$ (1), ELE»R0$ (14) 

12 HOVER=AIRrhhX)hní}hn!)h:^^ 

nma ntma ogbugemsa") 

13 LECT0R:ftDR("9hh»iJhrt'*hB“hiiJhhi»/ 
hhi HQtaHCiP/e* 

15 ILI=ADR('*HlHGK/|^/B9MIÍHMZW3lfl^ 

/hQhl^btUiJk*") 

16 Y=U5R(H0UER.LECT0Ra536,7e) 

18 TSB$ (1 i 88) =»13hhMhri >Blhn i )h!!Ch^ 

Shhn^raD^iiHi^^ EQjQjmcm \SEm 

lO^BgENHhgEHflB H" 

19 TSB$(81,139)=''Qin!Q3nh|B9Q4|3rO«(I^H 

(PBHHmnaBrg ^ 


91 GOTO leeee 

III REH HENU 1 INICIALIZA 

lie ? CHR$(125) 

121 POSITION l,ll:? ''CARGANDO ARCHIVO 
CONTROL" 

130 LINE=2ie:G0T0 22000 
150 ? CHR$(125) ¡POSITION 0,0:? 


ICItJLlZñ DftTQS CUEHTá CORRIENTE 


160 G05UB iseee 

200 REH VERIFICA STATUS DEL TALON 

210 IF TR0lS(286,285)="P' THEH 300 

250 REH RUTINA NUEVO TALON 

260 GOTO 15200 

300 REH HENSAJE ERROR 

311 PRINT CHR$(1Z5) 

320 POSITION 0,10:? 


PUEC'E IHICImLIZmR 


10 HAY CHEOUES UIGEHTfS 


PRESIONE una tec 


continua 


330 POSITION 0,20:? '1 

DEKl 

340 CLOSE ttl:OPEN Nl,4,e,"K:":GET ttl,A 

350 GOTO 10008 

1000 REH RUTINA HOVIHIENTOS 

lies ? CHR$(125):P0SITIDH 0,10:? '^3 


GANOO archivo CONTROL 


1010 REH CARGA ARCHIVO CONTROL 


1020 LIHE=1030:G0T0 22000 

1025 REH VERIFICA ARCHIVO CAR6A.DAT 

1031 60SUB 22100 

1065 REH INGRESA FECHA HOVIHIENTOS 

1071 GOSUB 16000:GOSUB 16400:FEGRE$=FE 
C$ 

1085 REH HENU HOVIHIENTOS 

1090 GOTO 10100 

1100 REH RUTINA GIROS, 

1110 REH BUSCA ULTIHO CHEQUE 

1120 GOSUB 13000:G0SUB 17eOe:GOSUB 164 

oo:hes$=titulo$ 

1140 ? CHR$(12S);"HHHDIQiISBaEC} 


lEOüES 


1145 POSITION 12,2:? DIA;" de ";HES$;" 
de 19 ";ano 
1148 ELEGIRO$="f 


II 

1149 ELEGIROS(5,LARGO+4)=CHEQUE$¡ELEGI 
ROS(2,4)=FEGRES:ELEGIROS(62,64)=FEGRE$ 
liso RESTORE 28203:RCAD TITULOS,FIN:PO 
SITION 0,4:? TITULOS;" - ";CHEOUE$ 

1180 FOR J=4 TO 6 

1190 RESTORE 28199U:READ DUHS,INI,TIT 

ULO$,FIN:L=FIN-INin 

1200 POSITION l,JH2:? TITULOS 

1211 N=2!Y=14JII2:L=FIN-INIfÍ: GOSUB 159 

00 

1220 T=LEN(OFER$):ClEGIRO$(INIil,lNm 
)rOFERS 

1230 HEHT J _ 

1240 POSITION 0,20:? 


aqado a FECHA 


1250 K=2:V=21:L=l:GOSUB 15900¡IF OFERS 
r»H" THEH 1300 

1270 GOSUB 16000:ELEGIR0S(62,64)=FECS 
1300 REH VALIDA INGRESO DE CHEQUE 
1310 ? rHPSfi7si ?»i p»FnnCTH:wa*iiMq 


lE CHEOUE GIRADÚ 


1315 FEC$=ELEG1R0S(2,4):G0SUB 16400:HE 

SS=T1TUL0S:RESTORE 28202:READ TITULOS: 

POSITION 0,4:? TITULOS 

1318 POSITION 2,5:? DIA;" de ";HESS;" 

de 19";AH0 

1320 FOR J=3 TO 6 

1330 RESTORE 281994J:READ DUH$,INI,T1T 
ULOS, FIN:L=FIN-INin:POSITION I, JA2 : ? 
TITULOS 

1340 POSITION 2,JH2n:? ELEGIROSdNin 
,FIN}:NEXT J 

1345 FECS=ELEGIR0$(6Z,64):G0SUB 16401: 
HESS^TITULOS:RESTIRE 28217:REA! TITULO 
StPOSITION 1,14:? TITULOS 
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APLICACIONES: continuación 


1348 POSITION 2,15:? MA;" de ";HE5$:" 
de 19";AN0 

1358 POSITIOM 8,28!? '1 


INGRESOS CORREC 


TOS PARA CHEQUE 

IS/NHH" 

I 

I 18140 POSITION 4,7:? " 1.- ! 

GIROS 


1368 V=21:M=2:L=:l:G0SUB 1598e:IF 0FEA$ 
<>"S" THEH 1148 

1365 IHC=GIftOA64:T0TAl$(IKC+1,180^64)= 
ELEGIRO$ 

1378 LA5TCHE=LA5TCHEn • 6IR0=GIR0+1 ;605 
U0 17888 

1388 REN RUTINA FINALIZA INGRESO 8E GI 
ROS 

1385 IF LASTCHE>HAKCHE THEN 31888 _ 

1398 ? CHR$(125):POSITION 8,18:? ♦‘ ■HTl 

1488 X=2:V=12:L=l:G0SUe 1596e:IF OFER$ 
<>"5" THEN 1428 

1418 GOSUB 22388:G0SUB 17ie8:G0SUB 225 
88!60T0 18288 

1428 REM RUTINA CAMBIO FECHA INGRESO 
1438 ? CHR$(1ZSI :POSITION 8,18; ? '«fíig 

1448 X=Z;V=12;L=l;GOSUB 15908;IF DFERS 

=''5» THEN 1458 

1445 GOSUB 17088:GOTO 1148 

1458 GOSUB 16880:G0SU6 17488:G0T0 1140 

1999 STOP 

2888 REM RUTINA SALOOS 
2818 REN CARGA ARCHIVO CONTROL 
2020 LIHE=2e38:G0T0 22888 
2188 PRINT 3":EN0 
3188 PRINT " 4":EN0 
4180 PRINT **5'*:EH0 
18888 REH MENU INICIAL 
18818 GRAPHICS 8:P0KE 752,1 
18828 POSITION 8 , 8 :? '1 


CUENTA CORRIEHT 


18838 POSITION 15,2:? “ M E H U'* 

18848 POSITION 4,5:? “ 1.* INICIALIZA 
CUENTA'* 

18858 POSITION 4,7:? " 2.- MOVIMIENTOS 

II 

18868 POSITION 4,9:? " Z.- SALOOS" 
18878 POSITION 4,11:? " 4.- BUSQUEDA O 
E CHEQUE" 

18888 POSITION 8,28:? 

;CIOSE ltl:OP 

EN til,4,8,"K:" 

18885 GET ttl,A:IF A<49 OR A>54 THEN 18 
885 

18898 0=A-48:P0KE 752,8:0N O GOTO 188, 

1888,2888,3888,4888 

18188 REH MENU MOVIMIENTOS 

18118 GRAPHICS 8:P0KE 752,1 


18128 POSITION 8,8:? 


CORRIENT 


18138 POSITION 15,2:? " M E N U" 


18158 POSITION 4,9:? " 2.- 


DEPOSITO 


MENU PR 


DIGITE nuHer 


18168 POSITION 4,11:? " 3.- 

18188 POSITION 8,20:? " 
tigM»l ; CL05E ttl:OP 
EN »1,4,8,"K:" 

18185 GET ni,A:IF A<49 OR A>54 THEN 18 
185 

18198 D=A-48:P0KE 752,e;0N O GOTO 1188 
,1488,1888 

13888 REH RUTINA BUSCAR ULTIMO CHEQUE 
13818 HUHTA=ASC(TR0L$(1,1)):TOTGIRO=AS 
C(TR0L$(243,24S)):MAX=ASC(TR0L$(235,23 
7)> 

13828 RESTORE 28e89fNUMTA:REA0 OUM$,IN 
I,TITULOS,FIN:L=FIN-INItl 
13838 TALOH$=TITULOS:CHEQUE$=TROL$(INI 
,FIN-1) 

13848 L=LEN(CHEQUE$):FOR J=1 TO L 
13858 IF CHEQUE$(L,L)=" " THEN GOTO 13 
878 

13868 NEXT J 

13878 LARG0=J-l:THP$rCHEQUE$(LARG0-2,L 
ARCO):CHEIN=VAL(TMP$) 

13888 GIR0=VAL(TR0L$(Z38,248)) 

13898 LASTCHE=CHEINfGIRO:MAHCHE=CHEIN+ 
MAX 

13899 RETURH 

15888 REN INICIALIZA DATOS GIRADOR CUE 
NTA 

15818 ... ":TROL 

$ (2)=TR0LS:TROLS(1,1)=CHR$(8) 

15815 TROLS(235,248)="88888808888888" 
15828 FOR J=2 TO 9:REST0RE 27999fJ:REA 
D DUHS,INI,TITULOS,FIN:L=FIN-INI^1 
15838 POSITION 8,JN2-1;? TITULOS 
15048 X=2:Y=JM2;G0SUB 15988 
15858 T=LEN(OFER$) :TROLS (INin, IN1«T) = 
OFERS 

15868 NEXT J 
15878 POSITION 8,28:? *1 


05 DEL GIRADOR CUENTA 


REVISE LOS DAT 


SON CORRECTOS 


S/N "::INPUT R$ 

15888 IF R$<>"S" THEN GOTO 15888 

15898 GOSUB 22588:RETURN 

15288 REH INGRESA DATOS DE TALON EN US 

O 

15285 ? CHR$(12S) 
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APLICACIONES: continuación 


1521t IIUNTA=ASCfTROL$Ci,l)) 

15215 If NUHTA>3 THER COTO 50000 

15220 RESTOOe 20009+iUHTA:ftEA0 OUH$,IR 

I. TITULO$, FIO: L=FIIi-IIII*l 

15230 P05ITION 0,4:? TITULOS 

15240 X=0:Y=5:C0SUD 15900 

15250 T=LEUC0FERS} íTROL$(IM*l,IiI*T) = 

OFERS 

15260 RESTORE 20013:REAO INI,TITO 

LO$,FIN:L=FIN-Iiin 

15270 POSITIOR 0,0:? TITULOS 

15200 N=0:y=9:C0SU0 15900 

15290 T=LEN(OFERS) :TReL$CIRI41,m?T) = 


OFERS 

15300 RESTORE 2S019?NUNTA:REA0 OUHS,IN 
I, TITULOS, FIN: L=FIN*-INI*1 


15310 GOSUD 16000 
15320 T=LEN(FECS) 
ECS 

15350 ? CHR$(125) 
15360 POSITIOR O, 


:TR0LSCIRIU,IRI?T)=F 


0 :? 


C'CiTOS DEL nuí'j 


o TiiLONñRIO 


15370 RESTORE 20009«NUNTA:REA0 »UMS,IN 

I,TITULOS,FIN:L=FIR-IRI?1 

15300 POSITIOR 0,4:? TITULOS 

15390 POSITIOR 2,5:? TR0LSCINI,FIR-1} 

15400 RESTORE 20013:REA» 0UN$,1RI,TITÜ 

LeS,FIN:L=FIN-‘lNin 

15410 POSITIOR 0,0:? TITULOS 

15420 POSITIOR 2,9:? TR0LSCINI,F1N-1) 

15430 RESTORE 200194^NUNTA:REAO OUN$,IN 

I, TITULOS, FIN: L=FIR-IRin 

15440 POSITIOR 0,12:? TITULOS:COSUO 16 


400 

15450 POSITIOR 2,13:? OIA;'* 4« **;TITUL 

OS;** 4e 19";AR0 _ 

15460 POSITIOR 0,20:? 

«BM S/R ?•* 

15470 L=l:R=2:Y=2l:C0SH0 15900 
15400 IF OFERS<>**S** THER 15200 
15402 NUMTA=NUNTA?1:TROLS(1,1)=CHRS(NU 
NTA) :TROLS(230,240) ="0N" 

15405 TR0LS(206,206)="H*:COSttD 22500 
15490 COTO 10000 

15900 DFERS='**':C0N::0:GLOSE lll:OPER ttl, 

4,0,"K:":POKE 764,255 

15905 COR=CDN?l:IF CON>L TREN 15970 

15910 POSITIOR X«C0N'1,Y:? *V;:CET III 

,A:POKE 16,112:P0KE 53774,112 

15920 IF A=155 THER 15970 

15930 IF A=126 ANO C0N=1 THER COTO 159 

10 

15935 IF A=126 TREN COR=CON-1:POSITIOR 
X'‘1«C0N,Y:? ** **:GOTO 15910 


15940 IF A<32 OR A>124 TREN COTO 15940 
15950 L0C=NTiC0N:OFERS(LOC,LOC)=CHRS(A 
):POSITION X-1+C0R,Y:? CHRSTA) 

15960 COTO 1590S 

15970 IF C0N=1 ANO A=155 TREN COTO 159 

00 

15900 FOR A=120 TO 00 STEP 20:S0UN0 O, 
A,10,0:F0R TIW=1 TO IO:NEXT TIMEtREXT 

A:SOUNO 0,0,O,O 

15905 POSITIOR X*C0R-1,Y:? " *'; 

15990 PONE 764,255:RETURN 

16000 FECS="":AR0:190O 

16010 ? CHRS(125):POSITIOR 4,17:? "FEC 

HA : 00/00/19** 

16020 POSITIOR 0,0:? 

16030 RESTORE 20101:FOR J=1 TO 12:REA» 
TITULOS,HAX;P05ITI0N 2,J?3:? J;**." *': 
POSITIOR 0,J^3:? TITULO$:NEXT 4 
16040 POSITIOR 0,20:? _ 

16050 L=2:X=2:Y=21:G0SUB 15900 
16060 TRAP 16040:NES=UAL(0FER$):1F INT 
(ICSXl OR INT(HES)>12 TREN 16040 
16070 L0C=40120tMESO40:F0R J=0 TO 10:P 
OKE L0C4^J,PEEK(L0CtJ)“12e:NEXT J 
16000 HESS=STRS(RES):L=LEN(HESS):POSIT 
ION 17-L,10:? HESS 

16090 FOR J=0 TO 9:POSITION 24,JM:? J 
;**.-**;ANO+J:NEXT J 


DIGITE el nuMer 


PñHTÚLLCi INGR 


DIGITE el nuHer 


|ii,9 •• 


16100 POSITION 0,20:? 

16110 L=l;X=2:Y=21:C0SU0 15900 
16120 TRAP 16100:ARO=MAL(OFERS):IF IRT 
(AHOXO OR INT (ANO) >9 TREN 16100 
16130 LOC=401O7+ARON4O:F0R J=0 TO 3:P0 
KE L 0 C*J,PEE«(L 0 CFJ)n 2 O;REXT J 
16140 POSITIOR 20,10;? AH0*00 
16150 POSITION 0,20:? "WWllMWiPCEa 
(«. IHJWJ ; ? ** 

16160 L=2:X=2:Y=21:C0SUB 15900 
16170 TRAP 16150:»1A=VAL(0FER$) 

16100 RESTORE 20100eHES:REA» TITULOS,H 
AX 

16190 IF NES02 TREN 16250 

16200 IF AR0=0 OR AR0=4 THER HAX::HAX41 

16210 IF AN0=0 TREN HAX=HAXei 

16250 IF IRT(»IA)<1 OR IRT(»IA)>HAX TH 

EN 16150 

16260 »IAS=STR$(»IA):L=LEN(»IA$):POSIT 
ION 14-L,10:? »IA$;:AR0=AR0*O0 
16300 POSITION 0,20:? 

^■;»IAS;* * de '* 
;TITULOS;** de 19**;AR0;** 5/R** 
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APLICACIONES: continuación 


16316 L=l:X=2:y=22:60SUB 15966 
16326 IF 0FER$<>'*5'* THER 16666 
16336 FEC$11,11=CHR$ CRIA):FEC$ C2,2)=CH 
R$(HE5}:FEC$f3,3)=CHR$fAN0) 

16396 RETURN 

16466 REM RUTINA 6EC0RIFICAD0R FEfHA 
16416 6IA=ASCCFEC$(1,1}I 
16426 ME5=ASCCFEC$(2,2)):RE5T0RE 26166 
«ME5:REAR TIT1IL6$ 

16436 AN0=ASC(FEC$C3,3)1 
16446 RETURN 

17666 REN RUTINA CREA CHE6IR0$ 

17616 TNP$=STR$CLASTCHE}:L=LENCTHP$):A 
UM$="666'‘: AUH$ (4-L, 3) =THP$: CHEQUES (LAR 
60-21=THP$:RETURN 

17166 REH mOIFICA CONTROL PARA NUEVOS 
RATOS 6IR0S 

17116 THP$=STR$(6IRei:L=LEN(TM>$1:TROL 
$ (238,2461 =" : TROL$ (236,237m =TMP$ 

17126 TNP$=STR$(T0T6IR01:L=LEN(TMP$1:T 
ROL$(243,2451“t TROLS(243,245tLl=T 
HP$ 

17156 RETURN 

26619 RATA SALRO ACTUAL,258 

22666 REH CAR6A CONTROL RESRE UNIRAR R 

E RISCO 

22616 CIOSE 112 
22626 TRAP 156 

22636 OPEN H2,4,6,*'R:T0NTR0L.RAT*« 

22646 TR0L$(11=" “;TR0L$(2661='* '*:TROL 

$(21=TR6L$;NU1C=1 

22656 TRAP 22696 

22666 GET tt2,R:TR0LS(NUIC,NU»C)=CHR$(R 
1 

22676 NUNE=NUNEtl 

22686 GOTO 22666 

22696 GOTO LINE 

22166 REH CARGA ARCHIVO.RAT 

22116 TRAP 22136;CL6SE Itt.'OPEN «2,4,6, 

‘*R; GIRO. RAT» 

22126 G6T0 22266 

22136 GLOSE «2:0PEN «2,8,6,*«R:CIR6.RAT 
"tPRINT «2;"FIN**:GLOSE «2 

22146 ..(96661 =*' ":T 

0TAL$(21=T0TAL$ 

22166 F6R J=6 TO 99:lNC=lif64:T0TAL$(lt 

INC,inNCl="r‘:HEXT J 

22176 F6R J=6 TO 99:1NC=JNI2*6466:T0TA 

L$(inNC,mNCl="r':NEXT J 

22196 Y=USR(1537,ARR(T0TAL$1,466,75,87 

1 

22195 RETURN 

22266 REH CARGA SECTORES CON RATOS HAC 
lA STRING TOTALS 


22216 T6TALS(1}=" 'MTOTALS (96681=“ '':T 
0TAL$(2}=T0TAL$ 

22226 V=USR(1537,ARR(TOTALSl,466,75,82 
1 

22236 RETURN 

22366 REH SALVA HACIA SECTORES RATA RE 
STRING TOTALS 

22316 y=USR(1537,ARR(TOTALSl,466,75,67 
1 

22326 RETURN 

22566 REH SALVA ARCHIVO CONTROL 
22516 GLOSE 4I2:0PEN «2,6,6,“R:T0NTR0L. 
RAT“ 

22526 PRINT «2;TR0L$ 

22546 CLOSE «2:RETURN 
28666 RATA INICIAL,6 


28661 RATA 
26662 RATA 
28663 RATA 
26664 RATA 
28665 RATA SBE9.95 
26666 RATA |iUJd!l*121 


HUMERO TóLONílRIOS 


HOMBRE PROP,CUENTA 


DIRECCION PROP.CTA 


CIUDAD PROP.CTA 


»1 
i 61 

,76 


28667 RATA 
26668 RATA 
28669 RATA 
28616 RATA 

26611 RATA 

26612 RATA 

28613 RATA 

28614 RATA 

28615 RATA 




SUCURSAL 


DIRECCION BANCO 


NUMERO CTA BANCO 


TALONARIO 8 1 


TALONARIO 8 2 


TALONARIO 8 3 


TALONARIO 8 4 


TOTAL CHEO TALON 


TOTAL CHEQUE GIRADOS 


,166 
,166 
,198 
,216 
,222 
,234 
,237 


1.246 


28616 RATA 242 


28617 RATA 

28618 RATA 
8 

28626 RATA 

26621 RATA 

26622 RATA 
28623 RATA 


TOTAL GIROS EN ARCHIVO 


TOTAL DEPOSITOS ARCHIVO 


,245 

,24 


FECHA TAL 8 1 


PECHA TAL a 


FECHA TAL 8 3 


FECHA TAL 8 4 


1,258 

1,261 

1,264 

1,267 


26166 NEH RATOS INGRESO FECHAS 


28161 RATA 

28162 RATA 
26163 RATA 
28164 RATA 

26165 RATA 

26166 RATA 

26167 RATA 

26168 RATA 
28169 RATA 
26116 RATA 
28111 RATA 
26112 RATA 9 
28126 RATA 
26136 RATA 


ENERO 


FEBRERO 


HúRZO 


aBRIL 


MüYO 


JUNIO 


JULIO 


AGOSTO 


SEPTIEMBRE 


OCTUBRE 


NOVIEMBRE 


CIEHERE 


NOVIEMBRE 


DICIEMBRE 


,31 

,26 

,31 

,36 

,31 

,36 

,31 

,31 

.36 

,31 

,36 

,31 

,36 

,31 


(sigue 
en pág. 
16 ) 

i 
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DISKETTE 


Dominando 
la 1Ü5Q 



Nuestra columna de continuidad, interrum¬ 
pida el mes de diciembre, se reanuda con la pre¬ 
gunta formulada en MUNDOATARl No. 6. 

La modificación de* tos datos de uno de tos 
amigos (registros) ingresados en el archivo, prescri¬ 
ta para este programa dificultades y podría reali¬ 
zarse si el largo inicial del campo corresponde a 
modificación. 

Para ello veamos este nuevo programa: 


10 PRINT CHR$(12S) 

2i PRIRT "Inserte el diskette de 0RTO5 

11 

31 PRINT 

SV* 

M IF PEEK (53279) 06 THEN 61 
71 IIN »$(9),C0»E$(3),N0I«RE$(3I).»IR 
E$ (31), (21), TÉ1.E$ (i2), PRI5$ C2i) 

81 frIM ARCHI1$(16),ARCHI2$(16) 

98 ARCHI1$=“»:AHICOS.8AT";ARCHI2$="8:A 
NI605.TNP" 

INI GLOSE m: GLOSE «2 

lio TRAP 200:0PEN m.4»0#*RCHIl$:TRAP 

40080 

120 OPEN lt2.8«0,ARCHI2$ 

130 COTO 300 

200 ? :? CHR$(253);" Archive RATOS no 
presenta el RISRETTE en uso " 

210 PRINT ••PRESIONE BEQI paro probar 
con otro diskette" 

MO ? : PRINT "PRESIONE PiP» ere 

arlo en el diskette'* 

230 IF PEER(53279)=6 THEN 100 
240 IF PEER(53279) 05 THEN 230 
250 GLOSE ttl:OPEN ttl«8«0«ARCHIl$ 

260 PRINT IU;*'FINARCHI" 

270 GLOSE «i:COTO 100 
300 INPUT «1,10$ 


305 IF IR$="FINARCHI" THEN 400 
310 PRINT tt2;IR$ 

320 PRINT " Este registro va ARCHIVO T 


em...";ir$ 

330 INPUT til,N0NBRE$;PRINT )l2;N0nRE$ 
340 INPUT lll,RIRE$:PRINT )t2;RIRE$ 

350 INPUT til,CIURARS;PRINT tt2;CIURAR$ 
360 INPUT til,TELES:PRINT tl2;TELE$ 

370 INPUT tlljPAISSiPRINT tt2;PAIS$ 

390 COTO 300 


400 PRINT CHR$(125);" ACRECA RECISTRO 
";CIIR$(29) 

410 PRINT " NUIERO 0 FIN...":INPUT IR$ 
:IF IR$="FIN" THEN 600 


420 PRINT "NOMBRE....";:INPUT NOMBRES 
425 PRINT "RIRECCION.";:INPUT RIRES 
430 PRINT ••CIURAR....";:INPUT CIURARS 
435 PRINT "TELEFONO..";:INPUT TELES 

440 PRINT •'PAIS . INPUT PAISS 

450 ? :? "PREIONE PARA ACRECAR 

REGISTRO" 

460 ? ;? "PRESIONE Biaeiu:i PARA MOOIFIC 
AR RATOS" 

470 XF PEEK(53279)=3 TNEN 400 
400 IF PEEK (53279) 05 THEN 470 
500 PRINT tu;IOS 
510 PRINT «2;N0MBRE$ 

520 PRINT tt2; RIRES 
530 PRINT tl2;CIURAR$ 

540 PRINT «2;TELES 
550 PRINT ttXlPAISS 
570 COTO 400 
600 PRINT «2;"fINARCNI" 

610 GLOSE «l: GLOSE tt2 

620 PRINT GHRS(125);"BORRA ANTIGUO ARC 

ÑIVO" 

630 XIO 33,tU,0,0,ARCHIl$ 
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□ ISKETTE 


641 ? tf «CAMBIA NOMBRE ARCHIVO" 

050 MIO 12,111,0,0,"»:ANIC0S.TMR«AMIC0S 
.BAT" 

000 PRINT :PRINT ■ ■áiMWJJMrEKH '* 


El siguiente diagrama de flujo explica este 
programa: 


10-60 

70-90 

110-130 

250-270 

300-305 

310-380 

390 

4Ó0-410 

420-445 

470 

500-560 

570 

600 



Ejecute el programa y compruebe las etapas 
del esquema de flujo analizado. 

TAREA PARA USTEDES: 

- Modificar líneas de programa para ver los 
datos de cada registro de! archivo. 

El próximo mes continuaremos con las lí¬ 
neas de programa para modificar registros. La 
estructura de este programa lo permite, al pre¬ 
sentar dos archivos similares en el diskette. 

Hasta el próximo número. • 




GRUPOS DE USUARIOS 

□ Linares: 

La presente foto sirve de presentación 
para el grupo de usuarios del hospital de 
Linares. 

En nuestras oficinas nos visita el Dr. 
Fernando Valle Soto para informarnos de un 
grupo de 55 usuarios de los funcionarios de 
la provincia de Linares, 

Las actividades que realizan son: 

— Educación con un curso básico de pro¬ 
gramación BASIC de 20 horas. 

— Intercambio de software. 

— Adquisición de equipos para nuevos 
usuarios. 


CLUBDECOIYÍPUTAClOf^ 

GQUPOUSiMii0S4iui< (oaw-HtapuMig 
ÍN$(.ClPCÍUNI&.’ 


Agradecemos tan reconfortante visita. 
Estaremos en contacto para informarles acer¬ 
ca de otros grupos de usuarios para una ac¬ 
tividad masiva con estos grupos. 


□ La Serena: 

Recibimos carta del Club de Computa¬ 
ción Indio Compuclub de la provincia de 
La Serena, por intermedio de su presidente, 
don Francisco Farias Palma. 

Este interesante grupo activo de 186 
usuarios fue conocido por nuestro departa¬ 
mento de suscripciones por el alto número 
de suscripciones captadas. 

El grupo fue fundado el 14 de mayo de 
1986, y tiene interés en tomar contacto con 
otras instituciones afines para intercambiar 
ideas, conocimientos y programas. 
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APLICACIONES: continuación 


28199 REN RATA CIROS INCRESO 

28200 RATA INICIAL |0 

28281 RATA STATUS^l 

28282 RATA FECHA EHISI0N,4 
28281 RATA NUNERO CHE8UE,16 

28284 RATA CANTIRAR,28 

28285 RATA ORREN dR :,48 
28288 RATA £r PACO de :,81 
28287 RATA FECHA PAGO,64 

28888 REH HENSAJE ERROR HAVOR A 4 TALO 
NARIOS 

38818 ? CHR$(125) 

38826 POSITION 8,18:? 


E INGRE^üft UN NUEVO 


ERROR NO PUED 


TfiLONfiRIO DE 


PRESIONE una t 


38838 NUEVA=18888:C0T0 38988 
38980 REM TECLA PARA CONTINUAR 
38918 POSITION 8,28:? 

38928 CL05E ltl:OPEN lll,4,8,**K:'*;6ET til 

,A:CLDSE til:GOTO NUEVA 

31888 REH HENSAJE FINALIZA TALON EN US 

O 

31818 ? CHR$(125) 

31828 POSITION 8,18:? 


lE IHGREííiP NUEVO CHEOUE 

i 

)L PRESIONftRl 

1 RECLü IHIClALIZfi OTRO 

r* 


31838 NUEUA=15208:C0T0 38988 


• • 


CONTROLANDO LA CASETERA colabora 
este mes con el programa Cuenta Corriente Sanea¬ 
rla para ejecutarlo mediante la Unidad de Casete. 
Para ello siga las siguientes instrucciones: 

- Elimine del listado principal la línea 15090, 

— Modifique las líneas indicadas en los bloques 
siguientes a la rutina de páginas 10-13, 

Recuerde que este programa se encuentra dis¬ 
ponible Y ya digitado en el reverso de! casete de 
la revista MUNDOATARI No. 8, 


128 POSITION 8,18;? '*CARGANR0 ARCHIVO 
CONTROL4ffFffffffPRESIONE PLAY V laUna 


22588 REM SALVA ARCHIVO CONTROL UNIRAR 
RE CASETE 

22510 CLOSE II2:0PEN lt2,0,8,“C:" 

22528 PRINT tt2;TR0L$ 

22548 CLOSE tl2:RETURN 


22888 REH CARCA CONTROL RESRE UNIRAR R 
E CASETE 

22818 LINEA=2281S:G0T0 22888 
22815 CLOSE 112 
22828 TRAP 158 
22838 OPEN 112,4,8,"C:" 

22848 TR0L$(1)=*' ”:TROL$«286J='' "rTROL 

$C2)=TR0L$:NU»E=1 

22858 TRAP 158 

22860 GET tt2,R:TR0L$CNUHE,NUNE)=CHR$(R 
1 

22878 NUNE=NUHE+1 
22888 COTO 22868 
22898 COTO LINE 


22288 REM CARGA STRINC TOTAL RESRE ARC 
HIVO EN CASETE 

22218 T0TALSC11=” ... 

OTAL$C2J=TOTAL$ 

22228 CLOSE tlliOPEN 112,4,8,"C:" 

22238 FOR J=8 TO 99 
22248 INPUT tt2;Ttf»$ 

22258 INC=CJ-1)P96 

22268 T0TAL$(inNC,964^INCl=TMP$ 

22278 NEKT J 

22280 CLOSE lt2:RETURN 


22388 REM SALVA STRINC TOTAL HACIA ARC 
HIVO EN CASETE 

22328 CLOSE tl2:0PEN tt2,8,8,"C:" 

22338 FOR J=8 TO 99 

22348 INC=CJ-ltN96 

22358 TMP$=T0TAL$(l?INC,96fINC) 

22368 PRINT tt2iTlf>$ 

22378 NEKT J 
22388 CLOSE lt2:RETURN 


22888 REN RUTINA INI CASETE 

22885 CLOSE 112: TRAP 22988 

22818 OPEN 112,4,8,”C;'’;INPUT lt2,R$ 

22858 COTO LINEA 

22988 REH RUTINA INICIA RUMHV 

22985 ? CHR$C125):»REB0BINE LA CINTA4F 

«ffffffffPRESIONE RECORR Y PLAY Y IBH 

22918 CLOSE tt2:0PEN tt2,8,8,''C:**:PRINT 

I12,**F‘';:CL0SE «2 

22928 CLOSE 112: COTO 158 
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EL JUEGO DEL MES: 



Este juego simple se ubica en una galaxia, 
donde vuelan plantas venenosas, que con el sólo 
contacto te paralizan. Tú eres el Hombre Halcón, 
y tienes 3 vidas y una cantidad limitada de com¬ 
bustible. 

En la superficie del planeta, parte inferior 
de la pantalla, habitan reptiles que debes eliminar. 

Para desplazarte tienes el joystick, pero la 
dificultad se encuentra en los vientos permanen¬ 
tes sobre ese terrible planeta, los que te obligan 
a realizar vuelos en diagonal, como los del halcón, 
sorteando los obstáculos de las flores venenosas. 

Al eliminar reptiles ganas puntos. Si logras 
acumular 10.000 puntos eres el vencedor del 
planeta. 

Suerte. Hombre Halcón, y hasta el próximo 
mes con un nuevo juego. 


i 


ENERO 1988 


17 








TIPIANDO: continuación 



ite REH HONBRE HALCON 


áTfiiRI VERSIOl 


120 REH 
130 REH 

140 GOSUB S3«:ENERGV=5e0:60T0 180 
150 POSITION 1,1:? ii6;ENERey;" “;:po 5I 
TION 13-LEN(STR$(SC0RE>},1:? tt6;SC0RE; 
100 IF ENERGV<=0 THEN 440 
170 RETURN 

100 IF STICKCOlOlS THEN 5T=STICKC0) :P 
OKE 77,0 

190 IF RNOCO)>0.95 THEN P05ITI0N 19«RN 
O ( 0 } ,lOKRN» ( 0 ) «3;PUT tío,ASC(FOOL$(INTC 
4NRN0(0) n})) 

200 IF RNO(0X0.7 THEN 220 
210 POSITION INT(10«RNR(e))«2,204^(RNO( 
0)>0.S) :C=33+2«(RN0(0)>0.7):? ttO;CHR$( 
C};CHR$(C4-l); 

220 IF PEEN(53252) OR PEEN(53253) THEN 

440 

230 COLOR PC:PLOT PX,PV:ENERGY=ERER6V- 
1-9N(1-STRIG(0)) 

240 P09ITI0N 1,1:? tt8;ENERGy«(ENERGY)O 
);•• "iilf ENERGY<=0 THEN 440 
250 NK=PXn-2N(5TlCK(0)=ll) :NV=PY-(NK< 
0X(NX>19):NK=NX«(NX(20)?2ON(NX<0) 

260 Ny=Ny*(ST=13)-(5T=14):IF NY<3 OR N 

y>20 THEN ST=27-ST:NV=py 

270 LOCATE NX,NY,WIAT5IT 

280 IF Ny>19 THEN Z=PX*2-20»(PX>9);LOC 

ATE Z,NV?(PK>9),M1ATSIT:G0T0 330 

290 IF HHATSIT=32 TREN COLOR 32:PL0T P 

X,PV:PX=NX:Py=Ny:GOTO 100 

300 IF OTRIGCB) THEN 440 

310 COLOR 32;PL0T PX,PV:FOR 11=15 TO O 

STEP >0.5:SOUH0 0,H,12,8:90UN0 1,M.0,0 

:NEXT N 

320 SOURO O,6,O,O:SO0N0 1,0,0,0:HHATSI 
T=32:SCOREzSCORE^lO:ENERGV=ENERGr-50:G 
0SUO 150:G0T0 200 


330 5T=27-ST:IF l•IATSIT<33 OR HHATSIT) 
34 THEN 360 

340 POSITION Z,NYf(PX>9);PUT n6,32;PUT 
«6,32:SCORE=SCOREtlO:EREtGY=ENERGY+50 
350 COLOR 32:PL0T PX,Py:PX=NX:SCORE=SC 
OREFSO:GOSUB ISO:GOTO 100 
360 IF HHATSIT=32 THEN 180 
370 REH 

300 PONE 0Ln9,llZ:P0KE 0Lt20,4:C0L0R 
32:PL0T PX,PY 

390 POSITION Z,NYF(PX>9):PUT lt6,37:PÜT 
38¡POSITION Z,NY-2F(PX>9):PUT 116,4 
2:PUT 06,36 

400 SOUNO 0,25S,2,15:F0R K=1 TO 580:NE 
XT H:SOUNO o,o,o,e 

410 POSITION Z,Nyf(PX>9}:PUT tt6,3S:PUT 
06,36:POSITION Z,NY-2F(PX>9):PUT 06,3 
2:PUT 06,32 

420 PONE 0Ln9,6:P0KE 0L«20,6:G0T0 460 
438 REH 

440 FOR 1=60 TO O STEP -4:SeUN0 0,í,12 
,I/4:P0KE 53274,PEEK(53770):SOUNO 1,1, 
2,I/4:P0KE 53274,PEEN(53770) 

450 COLOR ASC(EXPL$(16-IM}):PL0T PX,P 
Y:POKE 53274,PEEK(53770):NEXT I 
460 COLOR 32:IF LIFE<3 THEN PLOT ISFLI 
FE*2,1 

470 PLOT PX,Py;LIFE=LIFEn:IF LIFE<4 T 
HEN ENERGY=500:GOSUB 770:G0T0 100 
480 PONE S38,0:P0KE 53240,0:P0KE 53249 
,0:SOUN0 2,0,0,0:SDUN0 3,0,0,O 
490 COLOR 32:PLOT 0,5:0RAHT0 19,5¡PLOT 
B,7:DRAkT0 19,7!P0SITI0N 5,5:? 06;”FI 
NALIZA 

500 POSITION 5,7:? 06;'*PULSE SPEIIO":P0 
KE 53279,8 

510 IF PEEK(53279)<>6 THEN 510 
E2i RtfN 
530 REH 

540 CNSET=(PEER(106)-12)M256:IF PEEK(C 
HS£Tf8)=2 THEN 600 

550 PONE 88,0:P0KE 09,CHSET7256'4:? CH 
R$(125) 

560 GRAPHICS 10:SETC0L0R 4,0,10:P0SITI 
ON 4,5:? 06;*' EL HOHBRE "¡POSITION 5, 

7:? III limiM ... 1>4,4 

570 OL=PEEK(560)?256«PEEK(S61)M 
500 PONE 0Ln2,6:P8SITI0N 1,11:? 06;"E 


15 ^EGUHDO^ 


590 GOSUB 690¡GOSUB 000 

600 GRAPHICS 17:0L=PEEK(S60)t256KPEEK( 

561)M:»IH F00L$(4),PC$(4},EXPL5(16) :R 
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TIPIANDO: continuación 




\ 


ESTORE 639 


889 COTO 889 

619 FOR 1=1 TO 4!REA» A:F00L$(I)=CHR$C 


899 FOR 1=128 TO 471:2=PEEK(57344a) :P 

A):NEKT ItFOR 1=1 TD 4:REA» A:PC$(II=C 


OKE CHSETtI,Z:POKE CHSET+Ifl924.Z:MEXT 

HR$fA):NEXT 1 


I 

629 FOR 1=1 TO 16:REA9 A:EXPL$(I)=CHR$ 


968 RESTORE 940 

CA):HEXT I 


919 READ A:IF A=-l THEM RETURM 

639 DATA 41,169,9,137,43,171,11,139,44 


929 FOR J=e TO 7:READ 6:P0KE CHSET+A«8 

,172,12,140,45,173,13,141,46,174,14,14 


^J,B:MEXT J;60T0 919 

2,47,175,15,143 


930 DATA 9,9,9,9,8,e,9,9,9 

649 POXE DL-1,71:P0KE Dlf2,7;P0KE DL*2 


949 DATA 1,2,9,9,9,9,9,2,9 

1,4:P0R£ DL422,4:P0KE DU23,4:P0KE DL^ 


959 DATA 2,166,88,88,88,86,88,160.8 

24,4:P0KE 756,CHSET/256 


969 DATA 3,12,3,16,196,195,63,3,3 

659 SETCOLOR 9,13,14;SETC0L0R 1,7,12:5 


979 DATA 4,0,192,252,236,252,240,192,1 

ETCOLOR 2,12,9;5ETC0L0R 3,4,14:5ETC0L0 


92 

R 4,5,4 


989 DATA 5,3,35,131,139,139,171,35,3 

669 POSITIOM 9,9:? ttSipuntos 


999 DATA 6,192,192,224,232,202,194,194 

EBEB" 


,200 

679 P9SITI0H 9,1:? 116;" 599 9 


1909 DATA 7,64,89,84,85,85,85,85,85 

";pc$(2,2);" •';PC$C3,3);" ";PC$(4,4); 


1916 DATA 8,1,5,21,85,85,85,85,05 

609 POSITIOR 9,22: FOR 1=0 TO 19:PUT 116 


1929 DATA 9,9,102,219,36,126,137,66,69 

,39:PUT tt6,49:NEXT I 


1930 DATA 19,0,15,9,51,63,15,15,3 

699 POSITIOM 9,29;F0R 1=9 TO 19;PUT 116 


1049 DATA 128,9,9,0,9,9,9,9,9 

,33:PUT tt6,34:NEXT I 


1950 DATA 129,2,9,9,9,9,9,2,0 

799 POSITIOM 19,29:PUT lt6,I5:PUT tt6,38 


1960 DATA 130,169,88,88,88,88,88,160,0 

719 PHBASE=CHSET*1024:P9=PHBAS£tS12:P1 


1079 DATA 131,12,3,9,192,195,63,3,3 

=P9n20:P0KE 54279,PHBASE/2S6:P0KE 559 


1980 DATA 132,0,192,252,204,252,249,19 

,46:P0KE 53277,3:PDKE 623,32 


2,192 

729 POKE 794,4M16*9;P0KE 795,14:P0KE 5 


1990 DATA 133,3,3,35,171,139,139,131,3 

3256,l:P0KE 53257,1 


5 

739 RESTORE 749:FOR 1=9 TO 4:READ A:PO 


1190 DATA 134,192,290,194,194,292,232, 

KE P9t99«I,A:NEXT l;FOR 1=9 TO 2:READ 


224,192 

A:POKE P1«91ÍI,A:MEXT I 


1119 DATA 135,64,80,84,85,85,85,85,85 

749 DATA 12,39,255,8,6,4,249,2 


1126 DATA 136,1,5,21,85,85,85,85,85 

759 FOR 1=1 TO 5:POSITIOM 19«RND(9),19 


1130 DATA 137,129,102,99,36,126,92,36, 

MRM»(9}43:R=IMT(4«RND(9)n}:? tl6;F00L$ 


24 

fR,R);NEXT I 


1149 DATA 138,0,15,9,48,63,3,15,15 

769 SOUMD 2,9,12,2:S0UND 3,9,12,2:A=US 


1159 DATA 11,153,219,231,255,90,24,36, 

R(16641 


66 

779 PK=5:PY=5:PC=A5CCPCSCLIFE+l,LIFE+1 


1169 DATA 139,24,90,231,255,219,153,36 

|}:COLOR PC:PLOT PX,PY:POKE 53278,9 


,66 

789 IF STICK(9)=15 THEH 799 


1179 DATA 12,217,219,231,75,2,24,36,66 

796 RETURM 


1180 DATA 13,216,225,235,69,7,2,40,66 

899 RESTORE 819:FOR 1=1664 TO 1719:REA 


1190 DATA 14,192,192,145,3,67,1,72,130 

D A:PeKE I,A:NEMT I;RETURN 


1299 DATA 15,192,128,8,1,1,9,16,128 

910 DATA 194,169,139,141,40,2 


1219 DATA 140,217,219,247,99,22,24,36, 

829 DATA 169,6,141,41,2,239,293,239,29 


68 

3 


1229 DATA 141,216,225,227,71,23,130,32 

839 DATA 239,293,165,263,141,9 


,66 

840 DATA 298,141,1,298,141,6,216 


1239 DATA 142,192,299,129,3,131,1,64,1 

859 DATA 73,255,141,4,219,173,244,2 


30 

869 DATA 73,12,141,244,2,169 


1249 DATA 143,192,144,9,1,1,0,8,128 

879 DATA 2,141,26,2,96 


1259 DATA -1 • 
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TECNICAS 


Set de 
caracteres 



Con la interrupción de la columna el mes an¬ 
terior para permitir la incorporación de nuevos lec¬ 
tores, reiniciamos el tema con la siguiente inte¬ 
rrogante; 

¿Qué utilidad presenta el conocimiento del Set 
de caracteres? 

Examinemos directamente un ejemplo, para 
el modo gráfico uno y dos se encuentra disponi¬ 
ble sólo la mitad del Set de Caracteres. 

Digite: 


It CRÉPNICS 1 
2t ? 


ejecute con la instrucción RUN. 

La pantalla aparece como ilustra la foto: 



Los caracteres de la línea 20 a editar son: 

— las letras a b (minúsculas) 

— los caracteres gráficos (CONTROL A, CON¬ 
TROL R. CONTROLO) 


¿Razones de este comportamiento diferente? 

Para el modo gráfico 1 no se encuentran dis¬ 
ponibles las minúsculas ni ios caracteres gráficos. 

Agregue la línea siguiente; 


U PRINT PECKC756) 

Ejecute el listado, con lo que aparecerá en la 
ventana el valor de retorno 224. 



Para interpretar este valor revise los números 
anteriores de MUNDOATARI en las columnas de 
Técnicas y De byte en byte, 


Agregue a continuación: 


5 DIN R$m 
It MRPHICS i 
21 ? lt6}»abH'* 

It PRINT PEEKC7S6) 

41 ? ** PRESIONE RETURN V CONTINUA” :INP 
NT R$ 

50 POKE 756,226 

60 ? ” PRESIONE RETURN V CONTINUA”:INP 
NT R$ 
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TECNICAS 


Ejecute el programa y aparece una primera 
pausa que corresponde a la ejecución anterior, ver 
foto: • 



Presione la tecla RÉTURN como indica el 
mensaje, y aparece lo siguiente en pantalla; 


0 127 

pég. 224'“'^. 

= 57344 

puntero 756 

224 

corre»ponde 
e foto con 
mayCisculas 

0 

64 

127 



pág. 226 
= B7866 

puntero 766 

226 

correrponde e 
foto con minúeeula* 
V caract. gráficos 









PRESIONE RETURN V CONTINUA 


V CONTINUA 


¿Qué sucedió con las letras que no se encon- 
traban disponibles? 

Muy simple, al modificar el puntero 756 hacia 
el valor 226 se utiliza la otra mitad del Set, que 
corresponde a las minúsculas y los caracteres 
gráficos. 

¿Cómo volver a la anterior imagen con las ma¬ 
yúsculas? 

Digite la línea siguiente: 

71 nn 75Í,t74:MT# M 

Ahora ejecute y podrá pasar de un tipo a otro 
de letras. 



Ahora observe la pantalla para las tetras mi¬ 
núsculas. Note la imposibilidad de utilizarla, pues 
la pantalla está saturada de corazones, en lugar de 
espacios. 

Los esquemas siguientes ilustran los programas: 


El carácter equivalente al espacio de primera 
ubicación en el Set, es el equivalente al carácter 
"corazón" (ubicación 64 dentro del Set). 

Para aclarar estos conceptos ejecute el pro¬ 
grama Analizador del Set en MUNDOATARl 7, 
página 20. 

¿Cómo podemos eliminar los corazones? 



Aquí comienza nuestro problema. 

El Set de Caracteres se encuentra en ROM, 
y por lo tanto es imposible de modificar. 

Pero existe una solución de alternativa, que 
consiste en mover el Set hacia un área de memoria 
previamente protegida, en donde se realizarán 
las modificaciones. 


► 
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TECNICAS: continuación 


El esquema ¡lustra lo afirmado: 


RESERVA ROM 




ATARI BASIC 


SET 


156 

160 




'n. movar Sh i 




Hagamos un recuento de las etapas; 

1. Proteger un área de la memoria; Línea 3000, 
la localización 106 define la última página dis¬ 
ponible para el ATARI BASIC. 

2. Asignamos la página disponible a la variable 
PAGINA, línea 3010, 

El esquema anterior ¡lustra la situación de 
reserva. 

3. Edita modo gráfico 1, con caracteres no al 
acceso. Ver línea 3020. 

4. Mover vía BASIC los 1024 bytes desde el 
ROM hacia las páginas reservadas. Ciclo con 
variable control J. Ver líneas 3030 a 3070, 
El esquema anterior ilustra la situación. 

5. Modifica el carácter de corazón por el carác¬ 
ter en blanco. Para ello la variable LOC de¬ 
fine la ubicación de los 8 bytes en el Set. 
Ver líneas 3100 a 3140. 

El siguiente esquema ilustra la operación; 


6. Modificar el puntero 7b6 para el nuevo Set 
y la segunda mitad. Ver esquema; 

SET ROM 



Digite el siguiente listado; 


xm FtKC lt6,KEKClH)-4 
XIII IM1M=HEXC1N) 

XI2I CMPHICS 1:? ll6;»abH" 

XIXI FH J=l TI 1I2X 

XI4I lNICIIL=2244(2SltJ 

XI5I F1I*L=M6INA»2SI«J 

XIII PME FINAL,PEEKCINICIIL) 

XI7I NEXT J 

IIM CARAC=I4«I 

Xill FM Jrl TI 7 

X12I LIC=PACimA25IKARACtJ 

XIXI PME LIC,I 

X14I NEXT J 

22M PIKE 7SI,PACINAt2 



AA loe corazones I I 
se cambian a: 1—J 



Al ejecutar aparece en pantalla lo siguiente; 



OPTIMIZACION: 

El tiempo para mover el Set es largo. Una 
buena optimización es aplicar la rutina MOVER, 
vista en números anteriores en la columna USR. 
(ver modificación en siguiente cuadro). 

El próximo mes veremos otros ejemplos pa¬ 
ra modificaciones del Set de Caracteres. 

Hasta entonces. • 
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MEMORIA 


PARTICIPANDO 

Hemos recibido una aclaración desde 
Punta Arenas en relación a una rutina publi¬ 
cada en MUNDOATARI No. 4 en la colum¬ 
na USR (MOVER). Nuestro lector Oscar 
Stuardo Soto con un acucioso análisis, de¬ 
muestra en el listado adjunto que la rutina 
no sirve sólo para mover hasta 256 bytes, 
sino que mueve hasta 65.535, con el llamado: 

Z = USfí (dirección, desde, hacia, largo) 

PLA 

PLA 

STA DESDE+1 
PLA 

STA DESDE 
PLA 

STA HACIA+1 
PLA 

STA HACIA 
PLA 

STALARGO+1 
PLA 

STA LARGO 

MUEVE LDY#00 

LOA (OESDE).Y 
STA (HACIA),Y 
INC DESDE 
BNE OKDESDE 
INC DESDE + 1 
OKDESDE INC HACIA 

BNEOKHACIA 
INC HACIA + 1 
OKHACIA DEC LARGO 

BNE MUEVE 
DEC LARGO+1 
BPL MUEVE 
RTS 

MUNDOATARI revisó dicha rutina y 
descubrió que tal como estaba no podía mo¬ 
ver más de 256 bytes por haberse colado un 
pequeño gusano en la memoria y haber cam¬ 
biado una letra o art negativo por una o en 
positivo. 

Una vez efectuado el arreglo funcionó 
como lo propuso nuestro amigo lector. 

Felicitamos a don Oscar y lo premiamos 
con un programa 30 rutinas para USR, para 
que continúe atento. 

A sugerencia de él entregamos tos data 
de la rutina para mayor seguridad: 

104, 104, 133, 241, 104, 133, 240, 104, 133, 
213, 104. 133, 212, 104, 133, 239, 104, 133, 
238, 160, 0, 177, 240. 145, 212, 230, 212, 208, 
2, 230, 213, 230, 240. 208, 2, 230, 241, 198, 
238, 208, 234, 198, 239,16, 230. 96 


De byte 
en byte 


LOS CODIGOS ATASCII. 

Ordenamiento para el usuario de tos 128 ca¬ 
racteres disponibles en el Set Standard de carac¬ 
teres en ROM. 

Digite el siguiente programa: 


11 ÍEM PROMANA 1 BYTE EN BYTE 

2i PONE 7A6jl 

IB POKE B2>4:P0KE B3,35 

4f POR J=B TO 127 

5B PRIHT CHR$(J); 

Bi NEKT J 
70 PBKE 760,0 


Al ejecutarlo aparecen en pantalla los 128 ca¬ 
racteres. 

La variable J es la que asume el valor del 

CODIGO ATASCII, 

Observe que aplicamos aquí la localización 
766, analizada en MUNDOATARI No. 6 de no¬ 
viembre de 1987. 

Además se ha modificado los márgenes- iz¬ 
quierdo y derecho, con el fin de centrar 32 carac¬ 
teres por línea. Para el uso de estas localizaciones 
ver en MUNDOATARI No. 0. 

El código ATASCII permite ai usuario editar 
el carácter asociado al número, en este caso con 
la función PRINTCHRS. 

En este caso específico, el control para el 
carácter lo asume el usuario. 
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MEMORIA: continuación 


3. CONTROL ATASCII 
Localización 763. 

Esta localización almacena temporalmente e! 
código ATASCII para el carácter que el ATARI 
se encuentre ejecutando en ese momento (ingre¬ 
so de teclado o procesos internos). 

Digite el siguiente listado: 


Íl RCN BYTE 2 
2t MN *$Cli> 

41 L=LENCA$I 
St FBR J=1 TO I. 

BS PRIHT 

7i MIRT RECKI761J;'' 
•t REXT J 


NOTA: 

— Debe modificar las lineas 20 a ¡a 128 respecto 
a la dimensión de la variable A$. 

- Digitar en la línea 30 los 128 caracteres. 

Si se encuentra en problemas por la cantidad 
de caracteres a editar en una línea, agregue una 
segunda línea. 

Para esto utilice el concepto de subíndice en 
él manejo de string, analizado en la columna 
Torpedo de meses anteriores de MUNDOATARI. 

A continuación analizaremos esta localización 
considerando el teclado como ingreso del código. 
Digite para ello el siguiente programa: 


Para digitar los caracteres de línea 30. 

El primero corresponde a CONTROL y tecla 
de " , " (coma), los siguiente a la secuencia de: 
CONTROL y la tecla A hasta la I. 

Ejecute el programa y en pantalla aparee» a 
continuación del carácter el código ATASCII aso¬ 
ciado al carácter del 0 al 9. 

Modifique el programa para que aparezcan 
los 128 caracteres en pantalla. 


II REH BYTE 3 
21 OPER 
Zl GET til,A 

41 PRIRT PEEKC763);’' “íCHR$fAJ 
SI GOTO 30 


Practique ingresando las letras por el teclado 
y aparecerá en pantalla el código ATASCII y el 
carácter asociado. Como guía de referencia se 
proporciona en recuadro adjunto una lista de 
dichos códigos. 

E! próximo mes estaremos en esta columna 

con el código interno. • 


Car. Dae. Interno 


f O 

) i 

A * 

^ ; 

8 
9 

^ 10 
T 11 
■ 12 

•• 13 

•. 

16 
16 

17 

18 

19 

20 

P 21 

r 22 

23 

24 

I 26 
\ 26 
ESC 27 
f 28 
^ 29 

30 

31 


i 


♦ 

P 

+ 


T 

M 


64 

66 

66 

67 

68 

69 

70 

71 

72 

73 

74 
76 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 
96 


Car. Dac. Int. 


SPC 

1 

i 

$ 

O/ó 

& 

( 

) 


< 

> 

? 


32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 
62 
53 

64 

65 

66 

67 

68 

59 

60 
61 
62 
63 


0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
26 
26 

27 

28 

29 

30 

31 


Car. Dac. Int. 


(S* 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 
w 
X 

• Y 

z 

[ 

V 

I 


64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 
76 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 


32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
63 


Car. Dac. Int. 


o 

P 

q 

r 

< 

t 

u 

V 

w 

X 

V 

2 

« 

I 

CLR 

i 

> 


96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 
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124 

125 

126 
127 
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97 

98 

99 
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101 
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107 
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109 

110 
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112 

113 

114 
116 
116 

117 

118 

119 

120 
121 
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125 

126 
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Amigos lectores de MUNDOATARI, la co¬ 
lumna Primeros pasos en el ATARI BASIC pro¬ 
porciona una rutina práctica para aplicaciones 
comerciales, como por ejemplo la facturación. 

Cuando ustedes se preguntan en ciertos mo¬ 
mentos: 

¿Qué puedo programar? 

ustedes podrán obtener una respuesta al respecto 
con el ejemplo de este mes, que MUNDOATARI 
ha desarrollado para demostrar la potencialidad 
del computador ATARI. Esta rutina proporciona 
una posibilidad práctica que transforma un núme¬ 
ro ingresado a su correspondiente texto en pala¬ 
bras. 

¿Dónde utilizarla? 

El caso más tfpico es en el caso de la factura¬ 
ción, obviándole a usted la necesidad de escribir 
ese texto. 


!• REM RERACTAR URA CANTIAAA A LETRAS 
2Í AIH NUH$(12),PAUSA$ai,C$(lMINEA$ 
CRD.LEESCZ» 

4t CRAPHZCS t 

5t POSITIDN t.z:? ■*PI6ITE el nunero a 
redactar'* 

6t INPUT NRH$ 

78 HaiCRO=INnVALCNUN$)) 


8t L=LEN(KUN$) 

IRA FOR J=1 TO L 

iXR IF NUK$U,J)="/* TREN C$=NUH$(J, 
i) 

IZA NEMT J 
ISA N=NUHERA 
14A LINEA$=**«' 

145 NK=A 

ISA HILES=IATCN/1AAA):RESTe=N~NILES«lA 

AA 

155 IF NILESzA TREN 2SA 
16A RzHILES 
165 C=l:T=l 

17A IF H>99 TRER 60SUB 6AA 

172 IF RrA TRER LIREA$Ciei.HtI)=** Nil 

";C=Cn:C0T0 2IA 

175 IF R>19 TRER 2AA 

lAA RESTARE ZAAAeRsREAA LEES:LzLER(LEE 

$): LIREAS (T. T+L-1) zLEES : T=TH: LER (LI 

REAS):COTO 220 

2H K=LER(RUK$):IF RUHS(K-I,K-3)<>"A" 
TRER COTO 210 

2A5 RESTORE 2AAAeR:REA» LEES:H=LER(LIR 
EAS):LIREAS(T,TtH-l)=LEE$:K=LER(LIREAS 
):COTO 220 

210 AECERA=IRT(R/1A):DI6IT0=R-DECERA»1 

A 
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TUTORIA: continuación 



m Xf »ECENA=e THEN 216 

214 RESTORE 2MltRECENft«ie:REA» LEE$:H 
=LEH(LEE$1:LIREAS CT,W^T-l)=LEE$:LINEA$ 
(l4tT,IH2m=» y '‘:K=LERaiREA$) 

215 IF frICIT0=6 THER COTO 226 

216 RE5T0RE 266IF6I6IT0:REA6 LEE$:U=LE 
H CLEES):LIREA$(W =LEE$: LEN CLIHEA$) 
226 K=lftl:LINEA$CH,H+4]=" nil ” 

226 IF REST0::6 THER ll=Hf4:G0T0 296 

246 N=RE5T0:L=LEH CLIREA$):C=L!T=L 

256 66T0 266 

296 T=l:C=l 

266 IF R=6 THER 296 

265 IF R>99 THER 605UB 666 
216 IF R(>6 THER 255 

226 H=C:60T0 296 
255 IF R>i9 THER 265 

266 RE5T6RE 26MfR:REA6 LEE$!L=LERCLEE 
5l :LIREA$CC,CH}=LEE$;ll=LERaiREA$) :CO 
T6 296 

265 IF RttM$ 11,1)0'•6» THER 275 
276 RESTORE 2666tR;REA6 LEE$:L=LERaEE 
$) :LIREA$CCn,CH)=LEE$:K=LERCLIHEA$): 
SOTO 296 

275 6ECERA=IRTCR/16)!6ISIT0=R-6ECERAH1 

6 

286 RESTORE 2666t6ECERAN16:REA6 LEE$:M 
=LERCLEE$):LIREAS fT, IHT-l)=LEE$;LIREA$ 
«•♦T,IIF2n)='' y **:W^tt*1*l 
262 K=LERCRUN$):1F RUR$IK,K)=**6" THER 
UREAS (H-2)=" **:l«=H-4:60T6 296 
265 RESTORE 2666f6ISIT0:REA0 LEE$:V=LE 
H CLEE$); UREAS CIO =LEES: I6:LER CLIREAS) 
296 UREASfM«l,IH6)=«* pesos":? UREAS; 
ERA 

486 ERA 


666 CERTERA=IRT(R/166) 

616 H=R'CERTERA«166 

626 IF CEHTERAM THER 646 

626 UREA$fC,CH)="CientO ":T=LERCURE 

AS):T=Tei:IF R06 THER SOTO 696 

625 T=T-4:C=T:K=T?2:RETIIRR 

646 IF CERTERA05 THER 656 

645 LEE$="i)Uin":60T0 655 

656 RESTORE 2666tCERTERA:REAA LEES 

655 L=LERCLEES) :UREA$(C,C?L-1)=LEES:L 

=LERCLIREAS) 

666 IF CERTERA05 THER 666 

676 LIHEASCL?l,L?7)="ientos ";T=LF6:66 

TO 696 

666 LIHEASCLn,L?6}="CientOS ":T=Le9 
696 C=LERCLIREAS):T=C:RETÍIRH 
1666 POSITIOR 6,26:? " ERROR «A iogres 
O 40 Hullero" 

1616 POSITIOR 6,21:? "PRESIORE ReturR 
para continuar" 

1626 IRPUT PAUSAS 
1026 SOTO 46 

2661 AATA Uno 

2662 AATA AOS 
2662 AATA Tres 

2664 AATA Cuatro 

2665 AATA Cinco 

2666 AATA Seis 

2667 AATA Siete 

2668 AATA OChO 

2669 AATA Hueve 
2616 AATA Aiez 

2611 AATA Once 

2612 AATA AOCe 
2612 AATA Trece 

2614 AATA Catorce 

2615 AATA Quince 

2616 AATA Aieciseis 

2617 AATA AiOCiSiete 
2616 AATA AieciOChO 
2619 AATA AieciAueve 
2626 AATA Meinte 
2626 AATA Treinta 
2646 AATA Cuarenta 
2650 AATA Cincuenta 
2666 AATA Sesenta 
2676 AATA Setenta 
2666 AATA Ochenta 
2696 AATA Reventa 


Aplique esta rutina y escríbanos comentando 
otras aplicaciones que usted le pueda dar. 

Hasta el próximo mes. a 
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NOVATOS 



La columna inicial para los nuevos usuarios 
de computadores ATARI continúa esta vez con el 
conocido juego de adivinanzas: E! Ahorcado. 

El programa presenta un desarrollo simple con 
todos los comentarios relacionados a la acción de 
las Instrucciones con sus correspondientes REM. 
¿Cuál es la idea? 

— Digite cuidadosamente las líneas del listado. 

- Ejecútelo y disfrute del juego. 

- Analice las líneas del programa para compro¬ 
bar los comentarios. 

— Finalmente es importante su imaginación pa¬ 
ra aplicar esta información. 

Una de las experiencias más interesantes de 
MUNDOATARI en el quehacer de la educación 
a distancia es la aplicación inmediata-^de los nue¬ 
vos conocimientos en programas de utilidad. 

Usted, amigo lector, es el principal actor y 
responsable del logro de estas actividades de supe¬ 
ración, que benefician a su núcleo familiar, per¬ 
mitiendo la exploración, capacitación y proyec¬ 
ción hacia el mundo del futuro, especialmente 
para los educandos. 


19 lEH COLHNH* NOVATAS MC 
Ze REN APRENRIENRO BASIC 
Z9 REN CRM JUERA EL AHORCADA 
4A REN WNDAATARI AICIEMNE AA 
SA DIN ANSHER$C4A),LTR$(i),HALDC4A) 

55 HHNCORRECT=A:TATAL=A 
6A CRAPHICS 7:GTR=A:VES=A:CARRECT=A:IR 
CORRECT=A:SETCOLAR A,2,4:SETC0L0R 1,1Z 
,1A;C0SUB 6XA 

65 FOR LP=Jl TO 4A: HOLA CLP) =A:HEXT LP 


7A READ ARSNER$:REH OBTIERE TEXTO DE L 
IHEAS DATA LINEA lAAA 
AA IF ANSHER$=“FIN" THEN ROTO 66A:REN 
FINALIZA EL JHERO PUEDE INTRODUCIR NUE 
DAS PALABRAS V HOVER PALABRA FIN 
85 T0TAL=T0TAL«1 

90 FOR LP=i TO LEN(ANSHER$);REN LOOP P 

ARA EL LARRO DE PALABRA 

lAA POKE 6S6,A:P0KE 6S7,LP«2:PRINT 

;:REN EDITA EL NUHERO DE LETRAS DEL TE 

XTO 

llA NEXT LP:PAKE 6S6,2:P0KE 657,Z4:PRI 
NT *• 

115 PARE 6S6,2:P0KE 657,25:PRINT **; 

12 A LTR$=*‘";P0KE 656,2?P0KE 657«AiPRIN 

R$ 

IIA IF LTR$='*'* TNEN ROTO 115 
14A CTR=CTRn:REN INCRENENTA VARIABLE 
CONTADORA PARA LETRA CORRECTA EN PALAB 
RA 

ISA PARE 656,3:P0RE 657,CTR;PRIRT LTR$ 

i 

16A FOR ZIP=2AA TO lAA STEP -1A:S0UND 
A,ZIP,1A«4:NEXT ZIP:S0UHD A,A,A,A:REN 
SONIDOS 

17A FOR LP=1 TO LENCANSHERS):REN LOOP 

DE REPETICION PARA LARRO TEXTO 

175 IF AHSNER$CLPAP)=LTR$ AND HOLDCLP 

)=A THEN N0LDCLP)=1:YES=1:C0RR£CT=C0RR 

ECTH 

IBA IF ANSMER$(LP«LP)=LTR$ THEN PORE 6 
56,A:PDRE 657,LPP2:PRINT LTR$ 

19A IF ANSHER$(LP,LP)rLTR$ THEN FOR ZI 

Pr5A TO ISA STEP lASSOUND A,ZIP,12f4:N 

EXT ZIP:S0UND A.A«A,A 

2AA NEXT LP:IF YES=1 TNEN YES=A:RAT0 2 

50 

21A INC0RRECT=INC0RRECTn 

22A FOR ZIP=1A TO SAsSOURD A,ZIP,A«4}N 

EXT ZIP;S0UND A,A,A«A 

230 OH INCORRECT RASUB 710,750,790,830 

,870,910,950,990 

240 IF IRC8RRECT=8 TNEN ROTO 410 

250 IF CORRECT=LENCANSNER$) THEN ROTO 

510 

260 ROTO 115 

400 REN MENSAJE DE FIN 

410 COLOR 3:PL0T 123,1Z:DRAHT0 123,19f 

PLOT 12O,Z0:DRAIfT0 126,30tPRZNT CHR$C1 

25):P0RE 656,1:P0XE 657,16 
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NOVATOS: continuación 




740 REM PIRUJA EL CUELLO 

(— J 


750 COLOR l:F0R PP=29 TO 31:PL0T 12I,P 

V —' 


P:PRAIfr0 125,PP:NEXT PP 



770 RETURN 

A T Di *^1 ^ 


700 REM PIRUJA EL CUERPO 

Al_íil A 


790 F0R PP=32 TO 50 STEP 2:COLOR 2:PL0 

/\ 


T 110,PP:PRAHr0 130,PP:COL0R 3:PL0T 11 

•^/ \ ^ 


0,PP«l:PRAIfrO 130,PPn:NEXT PP 



010 RETURN 



020 REM PIRUJA 0RAZO IZQUIERPO 

42* PRIIIT *H4jniirJg|gi>H'iFBR PP=1N TB 2 


030 FOR PP=32 TO 36 STEP 2:C0L0R 2:PL0 

M STEP 2tS0UNP •,PP.1B.4:%0UND 1,250- 


T 11S,PP:PRANT0 117,PP:C0LOR 3:PL0T 11 

PP,10,4:NEKT PP 


5,PPfl:PRAHT0 117,PPfl:NEXT PP 

410 50UR0 0,0,0,0;SOUK0 1,0,0,0:POKE 0 


040 FOR PP=32 TO 42 STEP 2:COLOR Z:PLO 

56,3:P0KE fi57.3:P0IIT “PRESIRNE 


T 110,PP:PRAHTO 114,PP:C0LOR 3:PL0T 11 

V 5ICUE...'*;:IMPUT LTR$ 


0,PPfl:PRAHTO 114,PPF1:NEXT PP 

440 G0T0 60 * 


050 RETURN 

500 REM RESPUESTAS C0RRECTAS 


060 REM PIRUJA 0RAZO PERECHO 

510 F0R PP=S0 TO 150:SOUR0 0,PP,10,4:5 


070 FOR PP=32 TO 36 STEP 2:COLOR 2;PL0 

OUN0 l,PPn0,10,4:P0KE 712,PP:NEXT PP: 


T 131,PP:PRAMT0 133,PP:C0L0R 3:PL0T 13 

SOUN0 0,0,0,0:S0HN0 1,0,0,0 


l,PPn:PRAHrO lZ3,PPfl:NEXT PP 

520 P0KE 712,0:NUNCORRECT=iniNC0RRECTtl 


080 FOR PP=32 T0 42 STEP 2:C0L0R 2:PL0 

510 6OT0 60 


T 134,PP;PRAHT0 130,PPtC0LOR 3:PL0T 13 

600 REH PIRUJO 0EL ANORCAPO 


4,PPtl¡PRAHT0 13a,PPn:IKXT PP 

610 C0L0R 2:E0R PP=70 TO 70:PLOT 100,P 


090 RETURN 

P:PRAKT0 140,PP:REKT PP 


900 REM PI8UJA PIERNA IZOUIERPA 

620 C0LBR l:FOR PP=10 T0 69:PL0T 102,P 


910 FOR PP=52 TO 60 STEP 2:COLOR 2:PL0 

PrPRAMTO 106,PP:NEXT PP 


T 118,PP:PRAIfT0 122,PP:C0L0R 3:PL0T 11 

630 F0R PP=6 TO 9!PL0T 102,PP:PRAMTO 1 


0,PPn:PRAIfTO 122,PPn:REXT PP 

25,PP:REXT PP:F0R PP=10 T0 12;PLOT 121 


920 COLOR l:FOR PP=61 TO 64:PL0T 116,P 

,PP;PRAMT0 125,PP:IIEXT PP 


P:PRAMT0 122,PP:NEXT PP 

640 RETURN 


930 RETURN 

650 REH MENSAJE FIN PALA0RAS 


940 REM PIRUJA PIERNA PERECHA 

660 PRINT CNR$(125};P0KE 656,1:P0KE 65 


950 FOR PP=52 TO 60 STEP 2:COL0R 2:PLe 

7,3:PRINT "USO TOPAS LAS PALA0RAS**:P0R 


T 126,PP:PRANT0 130,PP:COLOR 3:PL0T 12 

E 656,2:P0KE 657,3 


6,PPn:PRAIIT0 130,PPn:NEXT PP 

670 PRINT *'X CORRECTAS :";RUNC0RREC 


960 COLOR l:FOR PP=61 TO 64:PL0T 126,P 

T/TOTAL*100;'*7.";:P0KE 6S6,I:P0KE 657,3 


P:PRAMT0 132,PP:N£XT PP 

:LTR$=‘"* 


970 RETURN 

600 PRINT **REPITE CS/NI"; :INPUT LT 


900 REM 

R$:IF LTR$="S** TNEN RESTORE :€OTO 55 


990 RETURN 

690 6RAPHICS 0:PRINT 'HASTA EL PROXIMO 


1000 REM PATOS PARA EL JttE60 PUEPE MOP 

MES WNPOATARI 9":ENP 


IFICAR PARA SU USO V NUMERO 

700 REM PIRUJA CAREZA 


1010 PATA MUNPOATARI,C0ELSA 

710 COLOR l:F0R PP=20 T0 20:PLOT 120,P 


1020 PATA CLO0ATARI,OIPEOMANIA 

PrPRAMTO 120,PP:NEXT PP;C0LOR 2:PL0T 1 


1030 PATA CLHUST,CLU0 00IT 

22,23:PL0T 126,23:PL0T 124,25 


1040 PATA CLUB INTERCAWIO 

720 PLOT 123,27:PRANT0 125,27:C0LOR 0: 


1050 PATA NOVATOS,CASETERA 

PLOT 120,20:PLOT 120,20:PL0T 120,20:PL 


1060 PATA USR,PIRECTO 6502 

0T 120,20 


1070 PATA APLICACI0NES,CATAL060 

730 RETURN 


1000 PATA FIN 


28 


MUNOOATARI 







APLICACIONES 


Aplicaciones 




MUNDOATARI tuvo capacidad en sus male¬ 
tas, durante su viaje a otros países, para algunos 
programas que pueden ser utilizados por nuestros 
lectores para tareas-específicas: 


CONTABILIDAD 

Es un programa simple de contabilidad gene¬ 
ral. La pantalla muestra el menú principal con sus 
tareas: 



Observe la particularidad de ingresar en pri¬ 
mer lugar la fecha del movimiento, para llegar a 
la pantalla de opción. 

STOCK Y FACTURACION 

Otro programa de la misma procedencia, con 
una excelente presentación inicial: 


M ■ II il I M \ 

ppescMrA 

FACrURACXOM V - 

COMtfiOL 

-i-.f 

«C> 
por 

tcizesaezze 



El menú de direccionamiento permite las si¬ 
guientes tareas: 


. i-Ami'tiÓL Í>C 

IWVCMTftRIO - FAClUWftClÓlr. 

F W MU 1 

1 . 

CHIRAPAS 

/ . 

'«Al lt>A% 

S. 

KOtFlFlCAR / lllKtHAR 

4 . 

ClA^Xr ICAR StOC». 

5. 

L15YAR StOCF. 


COM^liltAR Articulo 

l 

1HRRIH2R Stock 

K 8. fAGlURAClOH M 

^^__ft.r3rT7«rT7rm<j7<Fi'3i- => 


Si su configuración presenta una impresora, 
tiene la opción de producir los formatos. 
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APLICACIONES: continuación 


INGRESOS Y GASTOS 

Otro programa de aplicación práctica para 
el hogar. 



CALENDARIO DE COMPROMISOS 

Este programa permite planificar las activi¬ 
dades (compromisos de un mes) como lo muestra 
el menú siguiente: 



APLICACIONES DE MICROINFORMATICA 

Un conjunto de 8 programas, muy interactivo, 
en que destaca el programa de Inglés, que incluye 
la pronunciación de palabras para su aprendizaje. 

La foto siguiente muestra el menú con las 
otras opciones; 



VISICALC +ATARI BASIC 



La popular Planilla Electrónica, el uti¬ 
litario de mayor uso para los microcompu- 
tadores, permite crear archivos de uso dife¬ 
rente. Así por ejemplo; 

- Salvar datos completos de la planilla 
creada. 

— Salvar datos de columnas o líneas en un 
formato especial (DIF)=# 

Una de las posibilidades es capturar es¬ 
tos datos mediante el BASIC para manipu¬ 
larlos en situaciones de decisión, que opti¬ 
micen ios datos de una planilla. 

Para aquellos lectores que deseen pro¬ 
fundizar en este tipo de aplicaciones mixtas 
con la Planilla Electrónica, este programa 
permite capturar un Archivo DIF. 

Cree primero con su Planilla Electrónica 
(VISICALC) un archivo DIF con el nombre 
ATARI. Luego digite las líneas del programa 
siguiente y ejecute, En pantalla aparecen 
una serie de datos que indican las caracte¬ 
rísticas del archivo y a continuación los da¬ 
tos grabados. 


It REN PROGRAMA CAPTURA U VIS 
15 ilN ASCZR} 
ii CttENTA=R 
20 CLASE «1 

3t tPER «1,4,i,**»:ATARI.RIE" 
40 REM 

4S CUENTA=CtENTA«l 

5A POXE 756,1 

66 IRPUT ttl,A$ _ 

76 ? cuenta;*V;a$;*MB"; 

66 IF A$<>"E06'* THEN 46 

96 PWE 766,6 
166 ERO 


' Modifique y analice este programa. Po¬ 
drá ser de gran utilidad para la optimización 
de los recursos de su Planilla Electrónica. 
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Novena Feria de Computación 
Las Vegas, Nevada, USA 


Rill'87 


MUNDOATARi, revista especializada para usuarios de microcomputadores 
ATAR!, estuvo presente en la Novena versión de COMDEX 
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REPORTAJE: continuación 



Este viaje se inicia como un 
sueño al entregar a todos nues¬ 
tros lectores de Latinoamérica 
las experiencias vividas en una 
Feria Internacional de Compu¬ 
tación (COMDEX 1987). 

Este mes ustedes comproba¬ 
rán que esta quimera es cumpli¬ 
da por MUNDOATARI para 
complacencia de la familia ata- 
riana. 

Para desplazarnos físicamente 
a Las Vegas los servicios de 
PANAM resultaron excelentes. 
Un viaje directo de 15 horas 
de vuelo nocturno permitió que 
MUNDOATARI se encontrara 
allí. 

Un punto intermedio es Los 
Angeles, que permite apreciar 
como una prevista de la intensi¬ 
dad del tránsito hacia Las Vegas, 
con un edificio majestuoso. 





El viaje continúa hacia el lugar de destino, fru¬ 
to de la imaginación y esfuerzo americano, cons¬ 
truido en pleno desierto, y donde la imaginación 
se transforma en realidad con luz y color, que du¬ 
rante la noche adquiere su máxima dimensión. 

A la llegada, nuestra primera experiencia es 
apreciar el enorme flujo de personas en los dife¬ 
rentes hoteles casinos de esta ciudad, que tienen 
totalmente colmadas sus numerosas habitaciones. 

Esta Novena Feria atrajo a 120.000 personas 
(expositores y visitantes), quienes después de solu¬ 
cionar su estadía deben registrarse y obtener la 
credencial para el ingreso al recinto de la Conven¬ 
ción. 

Pudimos apreciar las características organiza¬ 
tivas del evento, para proporcionar en forma ex¬ 
pedita esta credencial, previo pago de US $ 50. 


CQtrrmijcuv ó 
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REPORTAJE: continuación 



I 


I 


I 


1 


Las siguientes vistas muestran 
el lugar y la expectación para in¬ 
gresar a la Feria varias horas an¬ 
tes de la apertura. 

Para llegar a esta Feria existe 
movilización desde el hotel de su 
preferencia y sin costo adicional. 

La programación en la vida 
personal puede superar las ex¬ 
pectativas como estos visitantes, 
que para lograr el máximo de 
visitas por día llegan con una ex¬ 
traña composición de vestimen¬ 
ta: temos impecables y zapatilas 
para caminar cómodo. 

En la entrada hay otro aspec¬ 
to de la organización, diario gra¬ 
tis para todos los asistentes, con 
la información actual acerca de 
noticias, avisos y actividades de 
la Feria (conferencias, etc.). 
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REPORTAJE: continuación 


COMDEX POR DENTRO 


Y ahora el aspecto interior de 
COMDEX '87. 

Nuestra próxima urgencia es 
ubicar lo que deseamos con más 
ansias: el stand de ATARI. 

En la parte central y colmado 
de público aparece a nuestros 
ojos el lema Power without the 
Pnce, caracterTstico de ATARI 
Corporation. 

Nuestra ansiedad se transfor¬ 
ma en calma al ver la magnifi¬ 
cencia V complejidad de la mues¬ 
tra presentada por ATARI en la 
Novena versión de COMDEX. 
Examinamos paso a paso cada 
uno de los distintos módulos de 
este gigantesco stand y como pri¬ 
mera impresión vemos la canti¬ 
dad de empresas productoras de 
software que muestran sus nue¬ 
vos productos. 

Iniciamos el recorrido por lo 
más nuevo, la Línea PC de ATA- 
Rl, que próximamente entrega¬ 
remos en detalle a nuestros lec¬ 
tores. 

Las imágenes muestran sus 
características y alta capacidad 
gráfica. 

Los modelos XT y AC que 
aparecen en las fotos siguientes 
fueron la sensación en esta mues¬ 
tra. 
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REPORTAJE: continuación 



(A I Compatible 


& Expartdable) 






NewATARI Products 


AT Coir.ilíMíbl*' 


al* 


Power Without the Price: 
ATAR! ofreció una magnífica muestra 
en la linea PC al ansioso público 


Izquierda: ATAR! PC ofrece EGA como 
configuración estándar 


Arriba: configuración ATAR! para 4 Megabytes 
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REPORTAJE: continuación 



ATAR! estuvo presen te en las 
aplicaciones de vanguardia 


APLICACIONES 

En las aplicaciones del com¬ 
putador, adquiere una impor¬ 
tancia funcional máxima produ¬ 
cir originales e impresos para la 
organización de los pequeños ne¬ 
gocios y empresas en general. 
Los programas Desktop PubU- 
shing ejecutan estas operaciones. 

Comprobamos que nuestros 
ATARI se encuentran en esta 
tecnologi'a con sus equipos ST y 
la nueva impresora láser, cuyo 
precio será muy inferior al actual 
para otras marcas. 

Otra de las directrices actua¬ 
les del mercado computacional 
a nivel mundial son los Gráfica- 
dores en tercera dimensión CAD 
3D. 

El ATARI ST con su capaci¬ 
dad gráfica extraordinaria, sólo 
comparable con equipos de otro 
precio, es ideal para este tipo de 
software comercial. 

Luego vimos softwares para 
aplicaciones, 

Finalmente nos encontramos 
con los editores de la revista 
ANTIC, que publicitaban sus 
productos. 

Para el computador de 8 bits 
tenemos la novedad; el 65 XE 
y la nueva Unidad de Disco. 

En otro columna se describen 
estos equipos. 




MGMStatíon 


cunna D»'* *»<« 


WOBM 


»ti=- ciKciE X 
AgoDioii» ' ' ’ 

ciaaí 


UETAIL ■*- 


■■ 

'-i 


I - t 


\--íM 'T 
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REPORTAJE: continuación 


I 


» 





Arriba: Conexión a Polaroid para fotos de pantalla 
Derecha: Interfase con música 
Abajo: Jack PoweII, Manager ofProduct Development, 

de revista ANTIC 



SOFTWARE 



► 
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REPORTAJE: continuación 




Arriba: Joe Ferrari. Jefe de Software de ATAR! Corporation 
Abajo: Sr. Leonard, Ejecutivo de ATAR! Corporation 
Abajo derecha: Representantes de íntelligeniGames, Venezuela 


Por la tarde fuimos invitados 
a una recepción de ATAR! Corp. 
para las empresas productoras de 
software que cooperan en lograr 
los objetivos de desarrollo y ca¬ 
pacitación. 

Iniciamos con la presentación 
del presidente de esta corpora¬ 
ción , ubicada en el lugar 200 del 
ranking de Estados Unidos, 

A continuación fotos de esta 
recepción. MUNDOATARI fue 
el único medio que logró aspec¬ 
tos gráficos de esta reunión. 

Hasta aquí esta visita. 


Abajo: Jack Trammiel, presidente de ATAR! Corp. 
junto a José Luis Dreidemie, director Sky Data 



A continuación un concurso para nuestros 
lectores; escríbanos con sus impresiones de este 
artículo en directo y exclusivo. Hay un sorteo y 
premios para las cartas que se reciban. 

Hasta un próximo evento de su interés. • 
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TESTIMONIO 


Resumen de actividades 


MUNDOATARI, consciente 
de sus objetivos ha estado per¬ 
manentemente creando nuevos 
centros de atención para sus mi¬ 
les de usuarios. Un resumen de 
actividades durante 1987 ha sido: 

1. VIDEOMANIA logró el obje¬ 
tivo de reunir a los fans de los 
videojuegos en una columna de 
continuidad, que probablemente 
se continuará a pedido de uste¬ 
des a partir de abril o mayo en 
la versión 19S8 (año 2). 

Como resumen de esta acti¬ 
vidad estuvo la búsqueda del 
REY del Videojuego, que fina¬ 
lizará en algún lugar adecuado 
durante este verano de 1988. 



2. CLUB ST. Esta actividad de 
agrupamiento de usuarios de 
la línea ST ha dado los frutos 
esperados. Nuestro grupo ya 
bordea los cincuenta suscripto- 
res. 


% 



En este momento entrega a 
costo de diskette programas co¬ 
mo los siguientes: 

— Contabilidad 

— Fichero médico 

— Stock 

— Arcanol. Juego con excelente 
resolución gráfica 

— Bowling 

— Correcaminos 


Nuestra columna de intercam¬ 
bio con los miembros de nuestro 
Club ST continuará mediante in¬ 
formación adicional de tipo per¬ 
sonal para cada uno de nuestros 
socios. 

Recuerde que para incorpo¬ 
rarse a él sólo necesita ser sus- 
criptor de la revista. Para los so¬ 
cios de provincia se le despacha¬ 
rán sus compras de programas 
mediante el catálogo ATARI. f 
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TESTIMONIO: continuación 



3. CLUB 8 BITS. Esta nueva 
agrupación de usuarios de 8 
bits con la unidad de disco, tiene 
como objetivo proporcionar pro¬ 
gramas a bajo costo y de aplica¬ 


ciones prácticas para los miem¬ 
bros de este club. 

Pueden pertenecer a él los 
suscriptores de la revista. Se 
ofrecen para ellos los programas 


descritos en esta misma como 
aplicaciones, al precio de $ 600 
cada uno. 

i Gracias por la acogida a este 
núcleo de actividades! 





4. CLUB DE INTERCAMBIO. 

Esta es la nueva actividad cre¬ 
ada por MUNDOATARI para 
quienes les gusta cambiar pro¬ 
gramas. Un aviso económico de 
un listado especia! para los 
miembros de este Club circulará 
privadamente entre ellos, sin 
cargo para los miembros. 

Es interesante. La única limi¬ 
tación es que no se permite 
anunciar la venta de programas, 
sino el intercambio entre los fa¬ 
náticos ATARI, de las diferen¬ 
tes ciudades. 

Escríbanos a nombre del 
CLUB DE INTERCAMBIO que 
se iniciará en marzo de 1988. 

Ahora amigo lector, si usted 
tiene alguna idea de actividades 
similares a las mencionadas y 
que MUNDOATARI pueda orga¬ 
nizar, envíela a nuestra casilla. 
Para nuestros objetivos ella será 
nuestra causa, y usted su creador. 
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Repáralo 


} USTED 

JAismo 


Libros de Selecciones del Reader’s Digest: 

UN REGALO DE SELECCION 
PARA ESTA NAVIDAD 
















HEUSia 


• 7.500 


LIBRO DEL 
AUTOMOVIL: 

Todo para que us¬ 
ted y su coche 
marchen "sobre 
ruedas”. 

HECHOS T 
PORMENORES: 
Conozca la "sal y 
pimienta” que hay 
detrás de cada 
hecho histórico. 


AGUJAS MAGICAS: 

"Gane puntos” con 
el más completo 
libro del teje y bor¬ 
dado. 

REPARELO USTED 
inSMO: 

Ponga "manos a la 
obra” y evítese los 
técnicos en la mate¬ 
ria. 


LA FUERZA DE LAS 
PALABRAS: 

Una gran obra, pa¬ 
ra dominar el espa¬ 
ñol "al pie de la 
letra”. 

UN JARDIN 
DENTRO DE LA CA¬ 
SA: 

Haga florecer sus 
Ideas y convierta su 
c£^ en un jardín. 


« 4.300 


* UtUlce SOLICITUD DE ORDEN DE PEDIDO, adjaxitK coa an revlata 
HUNDO ATARI. y reaerve aaa Ubroa con anticipación, «nviando 
docnmentoa a ncnnbre de Seleeclonea del Reader'a Dlgeat. (Precloa llevan 
deacuento Inclaldo). 


REGALE Y REGALESE ESTA NAVIDAD 
UN LIBRO DE 

Wt Celecciones 

d'f/Reader’sDigest 

Su mejor selección de lectuia 


S®!»’'.' roñe' Ki > i'Jcr s DiQOSC 


• 5.500 











AHCff^TENGOTODOS 
LOS PROGRAMAS QUEQUIERQ 



Ahora tengo el Modem 
XM 301. Lo conecté a mi 
teléfono y a mi computador 
ATARI. Con él me 
comunico con el BBS, que 
es el banco de datos 
ATARI COELSA. 


Reviso el listado de programas, escojo el que más me 
tinque o necesite y... lo grabo, gratis!! 

Además, tengo acceso a un correo electrónico donde 
puedo dejar o recibir mensajes abiertos o privados. 
Puedo preguntar todo lo que quiera sobre los 
computadores ATARI y en la casa lo ocupan todos, 
porque el BBS posee un completo banco de 
información al que se puede consultar acerca del 
valor de la U.F., la 
cartelera de cines, 
horarios de líneas 
aéreas, guía de 
restoranes, 

actividades del Teatro Municipal y un montón de 
cosas que en la casa a todos les interesa saber. 





f 




Con el Modem también puedes ingresar a otras bases 
de datos, incluso del exterior y comunicarte e 
intercambiar programas con amigos del país y del 
mundo entero. 

No te quedes aislado junto 
a tu computador, incorpora 
ahora el Modem XM 301 a tu 
equipamiento ATARI y comuniquémonos: 

Porque el Modem pone a nuestra disposición el 
mundo de la informática. 

BBS ATARI COELSA 
es una exclusividad para los socios del 
ATARI CLUB DE CHILE 



ATARI-CDELSfi 

Da más que los demás. 


L 
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